home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / cl / pprint / globals.c < prev    next >
Text File  |  1993-08-14  |  180KB  |  5,144 lines
  1. /*
  2. :comment "Compiled at 12:00:58 pm on Tuesday, July 28, 1992"
  3. :comment "Compiler Configuration: DEFAULT"
  4. :comment "Machine Configuration: SparcStation (gcc)"
  5. :comment "cc command: gcc -w -g -O "
  6. :version 0
  7. :package (IN-PACKAGE "XP") 
  8. :end-package-info 0
  9. :SV *PRINT-MISER-WIDTH* 40
  10. :SV *DEFAULT-RIGHT-MARGIN* 70
  11. :SV *CURRENT-LEVEL* 0
  12. :SV *CURRENT-LENGTH* 0
  13. :proclaim (QUOTE (SPECIAL *STRING* *USED-ARGS* *USED-OUTER-ARGS* *USED-INITIAL* *GET-ARG-CAREFULLY* *INNER-END* *OUTER-END* *AT-TOP* *DEFAULT-PACKAGE*))
  14. :structure #S(LISP::STRUCT-INFO LISP::NAME PPRINT-DISPATCH LISP::CHILDREN NIL LISP::SLOTS (#S(LISP::STRUCT-SLOT LISP::NAME CONSES-WITH-CARS LISP::INITIAL-VALUE (MAKE-HASH-TABLE :TEST (FUNCTION EQ)) TYPE HASH-TABLE LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME STRUCTURES LISP::INITIAL-VALUE (MAKE-HASH-TABLE :TEST (FUNCTION EQ)) TYPE HASH-TABLE LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME OTHERS LISP::INITIAL-VALUE NIL TYPE LIST LISP::READ-ONLY? NIL)) LENGTH 4 LISP::CONC-NAME "" LISP::PREDICATE PPRINT-DISPATCH-P LISP::INCLUDE NIL LISP::CONSTRUCTOR MAKE-PPRINT-DISPATCH LISP::COPIER NIL LISP::PRINT-FUNCTION LISP::DEFAULT-WRITE-STRUCTURE TYPE STRUCTURE LISP::NAMED? T LISP::INITIAL-OFFSET 0 LISP::FIRST-SLOT-INDEX 1 LISP::CONSTRUCTOR-ARG-LIST :DEFAULT LISP::PRINT-FUNCTION-LAMBDA-EXPR NIL LISP::INHERITED-SLOT-OVERRIDES NIL LISP::REPORT-FUNCTION NIL LISP::REPORT-FUNCTION-LAMBDA-EXPR NIL LISP::DYNAMIC? NIL) "p_xp_FLUID_2DPPRINT_2DDISPATCH_2DP_21_40_24"
  15. :proclaim (QUOTE (INLINE MAKE-PPRINT-DISPATCH))
  16. :sym :CONSES-WITH-CARS
  17. :sym EQ
  18. :sym LISP::MAKE-HASH-TABLE-1
  19. :sym :STRUCTURES
  20. :sym :OTHERS
  21. :sym NIL
  22. :sym MAKE-PPRINT-DISPATCH/3
  23. :sf MAKE-PPRINT-DISPATCH "p_xp_MAKE_2DPPRINT_2DDISPATCH"
  24. :sym PPRINT-DISPATCH
  25. :sf MAKE-PPRINT-DISPATCH/3 "p_xp_MAKE_2DPPRINT_2DDISPATCH_2F3"
  26. :sym LISP::INHERITED-STRUCTURE-NAME-P
  27. :sf FLUID-PPRINT-DISPATCH-P!@$ "p_xp_FLUID_2DPPRINT_2DDISPATCH_2DP_21_40_24"
  28. :proclaim (QUOTE (INLINE CONSES-WITH-CARS))
  29. :sym PPRINT-DISPATCH-P
  30. :sym LISP::WTA
  31. :sf CONSES-WITH-CARS "p_xp_CONSES_2DWITH_2DCARS"
  32. :proclaim (QUOTE (INLINE STRUCTURES))
  33. :sf STRUCTURES "p_xp_STRUCTURES"
  34. :proclaim (QUOTE (INLINE OTHERS))
  35. :sf OTHERS "p_xp_OTHERS"
  36. :proclaim (QUOTE (INLINE SET-CONSES-WITH-CARS!@$))
  37. :sf SET-CONSES-WITH-CARS!@$ "p_xp_SET_2DCONSES_2DWITH_2DCARS_21_40_24"
  38. :proclaim (QUOTE (INLINE SET-STRUCTURES!@$))
  39. :sf SET-STRUCTURES!@$ "p_xp_SET_2DSTRUCTURES_21_40_24"
  40. :proclaim (QUOTE (INLINE SET-OTHERS!@$))
  41. :sf SET-OTHERS!@$ "p_xp_SET_2DOTHERS_21_40_24"
  42. :structure #S(LISP::STRUCT-INFO LISP::NAME ENTRY LISP::CHILDREN NIL LISP::SLOTS (#S(LISP::STRUCT-SLOT LISP::NAME TEST LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME FN LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME FULL-SPEC LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL)) LENGTH 4 LISP::CONC-NAME "" LISP::PREDICATE ENTRY-P LISP::INCLUDE NIL LISP::CONSTRUCTOR MAKE-ENTRY LISP::COPIER COPY-ENTRY LISP::PRINT-FUNCTION LISP::DEFAULT-WRITE-STRUCTURE TYPE STRUCTURE LISP::NAMED? T LISP::INITIAL-OFFSET 0 LISP::FIRST-SLOT-INDEX 1 LISP::CONSTRUCTOR-ARG-LIST :DEFAULT LISP::PRINT-FUNCTION-LAMBDA-EXPR NIL LISP::INHERITED-SLOT-OVERRIDES NIL LISP::REPORT-FUNCTION NIL LISP::REPORT-FUNCTION-LAMBDA-EXPR NIL LISP::DYNAMIC? NIL) "p_xp_FLUID_2DENTRY_2DP_21_40_24"
  43. :proclaim (QUOTE (INLINE MAKE-ENTRY))
  44. :sym :TEST
  45. :sym :FN
  46. :sym :FULL-SPEC
  47. :sym MAKE-ENTRY/3
  48. :sf MAKE-ENTRY "p_xp_MAKE_2DENTRY"
  49. :sym ENTRY
  50. :sf MAKE-ENTRY/3 "p_xp_MAKE_2DENTRY_2F3"
  51. :sf FLUID-ENTRY-P!@$ "p_xp_FLUID_2DENTRY_2DP_21_40_24"
  52. :proclaim (QUOTE (INLINE TEST))
  53. :sym ENTRY-P
  54. :sf TEST "p_xp_TEST"
  55. :proclaim (QUOTE (INLINE FN))
  56. :sf FN "p_xp_FN"
  57. :proclaim (QUOTE (INLINE FULL-SPEC))
  58. :sf FULL-SPEC "p_xp_FULL_2DSPEC"
  59. :proclaim (QUOTE (INLINE SET-TEST!@$))
  60. :sf SET-TEST!@$ "p_xp_SET_2DTEST_21_40_24"
  61. :proclaim (QUOTE (INLINE SET-FN!@$))
  62. :sf SET-FN!@$ "p_xp_SET_2DFN_21_40_24"
  63. :proclaim (QUOTE (INLINE SET-FULL-SPEC!@$))
  64. :sf SET-FULL-SPEC!@$ "p_xp_SET_2DFULL_2DSPEC_21_40_24"
  65. :sym LISP::COPY-STRUCTURE
  66. :sf COPY-ENTRY "p_xp_COPY_2DENTRY"
  67. :sym LISP::*STRUCTURE-INFO*
  68. :sym GETHASH
  69. :sf STRUCTURE-TYPE-P "p_xp_STRUCTURE_2DTYPE_2DP"
  70. :sym *STANDARD-OUTPUT*
  71. :sf OUTPUT-WIDTH "p_xp_OUTPUT_2DWIDTH"
  72. :sym LISP::STREAM-COLUMN
  73. :sf OUTPUT-POSITION "p_xp_OUTPUT_2DPOSITION"
  74. :sym :PACKAGE
  75. :sym *PACKAGE*
  76. :sym :MACRO
  77. :sym :SHADOW
  78. :sym T
  79. :sym :REMOVE
  80. :sym PACKAGEP
  81. :sym FIND-PACKAGE
  82. :sym FORMAT-STRING-READER
  83. :sym SET-DISPATCH-MACRO-CHARACTER
  84. :sym USE-PACKAGE
  85. :sym *XP-PRINTING-FUNCTIONS*
  86. :sym SHADOWING-IMPORT
  87. :sym PACKAGE-USE-LIST
  88. :sym LISP::MEMQL
  89. :sym UNUSE-PACKAGE
  90. :sym INTERSECTION
  91. :sym UNINTERN
  92. :sf INSTALL "p_xp_INSTALL"
  93. :sym *FREE-CIRCULARITY-HASH-TABLES*
  94. :sf GET-CIRCULARITY-HASH-TABLE "p_xp_GET_2DCIRCULARITY_2DHASH_2DTABLE"
  95. :sym CLRHASH
  96. :sym EQL
  97. :sym IDENTITY
  98. :sym LISP::ADJOIN/4
  99. :sf FREE-CIRCULARITY-HASH-TABLE "p_xp_FREE_2DCIRCULARITY_2DHASH_2DTABLE"
  100. :sym *PRINT-PPRINT-DISPATCH*
  101. :sym *IPD*
  102. :sym MAX
  103. :sym MAPHASH
  104. :sym COPY-LIST
  105. :sym COPY-ENTRY
  106. :sym LISP::SET-GETHASH
  107. :sf COPY-PPRINT-DISPATCH "p_xp_COPY_2DPPRINT_2DDISPATCH"
  108. :sym ERROR
  109. :sym SET-PPRINT-DISPATCH+
  110. :sf SET-PPRINT-DISPATCH "p_xp_SET_2DPPRINT_2DDISPATCH"
  111. :sym SPECIFIER-CATEGORY
  112. :sym OTHER
  113. :sym SPECIFIER-FN
  114. :sym X
  115. :sym EQUAL
  116. :sym COMPILE
  117. :sym CONS-WITH-CAR
  118. :sym COUNT-IF
  119. :sym REMHASH
  120. :sym STRUCTURE-TYPE
  121. :sym LISP::MEMBER/4
  122. :sym LENGTH
  123. :sym LISP::SEQ-TEST
  124. :sym LISP::DELETE/8
  125. :sym ADJUST-COUNTS
  126. :sym PRIORITY->
  127. :sf SET-PPRINT-DISPATCH+ "p_xp_SET_2DPPRINT_2DDISPATCH_2B"
  128. :sf PRIORITY-> "p_xp_PRIORITY_2D_3E"
  129. :sf ADJUST-COUNTS "p_xp_ADJUST_2DCOUNTS"
  130. :sym GET-PRINTER
  131. :sym NON-PRETTY-PRINT
  132. :sf PPRINT-DISPATCH "p_xp_PPRINT_2DDISPATCH"
  133. :sym TYPE-OF
  134. :sym FITS
  135. :sym FIND
  136. :sf GET-PRINTER "p_xp_GET_2DPRINTER"
  137. :sf FITS "p_xp_FITS"
  138. :sym CONS
  139. :sym MEMBER
  140. :sym STRUCTURE-TYPE-P
  141. :sf SPECIFIER-CATEGORY "p_xp_SPECIFIER_2DCATEGORY"
  142. :sf ALWAYS-TRUE "p_xp_ALWAYS_2DTRUE"
  143. :sym CONVERT-BODY
  144. :sym LAMBDA
  145. :sf SPECIFIER-FN "p_xp_SPECIFIER_2DFN"
  146. :sym AND
  147. :sym OR
  148. :sym NOT
  149. :sym QUOTE
  150. :sym CONSP
  151. :sym CAR
  152. :sym LET
  153. :sym CDR
  154. :sym LISP::APPEND/2
  155. :sym LIST*
  156. :sym SATISFIES
  157. :sym FUNCALL
  158. :sym FUNCTION
  159. :sym COPY-TREE
  160. :sym TYPEP
  161. :sym *PREDS-FOR-SPECS*
  162. :sym LISP::ASSQL
  163. :sf CONVERT-BODY "p_xp_CONVERT_2DBODY"
  164. :SV BLOCK-STACK-ENTRY-SIZE 1
  165. :SV PREFIX-STACK-ENTRY-SIZE 5
  166. :SV QUEUE-ENTRY-SIZE 7
  167. :SV BUFFER-ENTRY-SIZE 1
  168. :SV PREFIX-ENTRY-SIZE 1
  169. :SV SUFFIX-ENTRY-SIZE 1
  170. :SV BLOCK-STACK-MIN-SIZE 35
  171. :SV PREFIX-STACK-MIN-SIZE 150
  172. :SV QUEUE-MIN-SIZE 525
  173. :SV BUFFER-MIN-SIZE 256
  174. :SV PREFIX-MIN-SIZE 256
  175. :SV SUFFIX-MIN-SIZE 256
  176. :structure #S(LISP::STRUCT-INFO LISP::NAME XP-STRUCTURE LISP::CHILDREN NIL LISP::SLOTS (#S(LISP::STRUCT-SLOT LISP::NAME BASE-STREAM LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME LINEL LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME LINE-LIMIT LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME LINE-NO LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME CHAR-MODE LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME CHAR-MODE-COUNTER LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME DEPTH-IN-BLOCKS LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME BLOCK-STACK LISP::INITIAL-VALUE (MAKE-ARRAY 35) TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME BLOCK-STACK-PTR LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME BUFFER LISP::INITIAL-VALUE (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR)) TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME CHARPOS LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME BUFFER-PTR LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME BUFFER-OFFSET LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME QUEUE LISP::INITIAL-VALUE (MAKE-ARRAY 525) TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME QLEFT LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME QRIGHT LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME PREFIX LISP::INITIAL-VALUE (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR)) TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME PREFIX-STACK LISP::INITIAL-VALUE (MAKE-ARRAY 150) TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME PREFIX-STACK-PTR LISP::INITIAL-VALUE NIL TYPE T LISP::READ-ONLY? NIL) #S(LISP::STRUCT-SLOT LISP::NAME SUFFIX LISP::INITIAL-VALUE (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR)) TYPE T LISP::READ-ONLY? NIL)) LENGTH 21 LISP::CONC-NAME "" LISP::PREDICATE XP-STRUCTURE-P LISP::INCLUDE NIL LISP::CONSTRUCTOR MAKE-XP-STRUCTURE LISP::COPIER COPY-XP-STRUCTURE LISP::PRINT-FUNCTION DESCRIBE-XP TYPE STRUCTURE LISP::NAMED? T LISP::INITIAL-OFFSET 0 LISP::FIRST-SLOT-INDEX 1 LISP::CONSTRUCTOR-ARG-LIST :DEFAULT LISP::PRINT-FUNCTION-LAMBDA-EXPR NIL LISP::INHERITED-SLOT-OVERRIDES NIL LISP::REPORT-FUNCTION NIL LISP::REPORT-FUNCTION-LAMBDA-EXPR NIL LISP::DYNAMIC? NIL) "p_xp_FLUID_2DXP_2DSTRUCTURE_2DP_21_40_24"
  177. :proclaim (QUOTE (INLINE MAKE-XP-STRUCTURE))
  178. :sym :BASE-STREAM
  179. :sym :LINEL
  180. :sym :LINE-LIMIT
  181. :sym :LINE-NO
  182. :sym :CHAR-MODE
  183. :sym :CHAR-MODE-COUNTER
  184. :sym :DEPTH-IN-BLOCKS
  185. :sym :BLOCK-STACK
  186. :sym LISP::MAKE-SIMPLE-ARRAY
  187. :sym :BLOCK-STACK-PTR
  188. :sym :BUFFER
  189. :sym :CHARPOS
  190. :sym :BUFFER-PTR
  191. :sym :BUFFER-OFFSET
  192. :sym :QUEUE
  193. :sym :QLEFT
  194. :sym :QRIGHT
  195. :sym :PREFIX
  196. :sym :PREFIX-STACK
  197. :sym :PREFIX-STACK-PTR
  198. :sym :SUFFIX
  199. :sym MAKE-XP-STRUCTURE/20
  200. :sf MAKE-XP-STRUCTURE "p_xp_MAKE_2DXP_2DSTRUCTURE"
  201. :sym XP-STRUCTURE
  202. :sf MAKE-XP-STRUCTURE/20 "p_xp_MAKE_2DXP_2DSTRUCTURE_2F20"
  203. :sf FLUID-XP-STRUCTURE-P!@$ "p_xp_FLUID_2DXP_2DSTRUCTURE_2DP_21_40_24"
  204. :proclaim (QUOTE (INLINE BASE-STREAM))
  205. :sym XP-STRUCTURE-P
  206. :sf BASE-STREAM "p_xp_BASE_2DSTREAM"
  207. :proclaim (QUOTE (INLINE LINEL))
  208. :sf LINEL "p_xp_LINEL"
  209. :proclaim (QUOTE (INLINE LINE-LIMIT))
  210. :sf LINE-LIMIT "p_xp_LINE_2DLIMIT"
  211. :proclaim (QUOTE (INLINE LINE-NO))
  212. :sf LINE-NO "p_xp_LINE_2DNO"
  213. :proclaim (QUOTE (INLINE CHAR-MODE))
  214. :sf CHAR-MODE "p_xp_CHAR_2DMODE"
  215. :proclaim (QUOTE (INLINE CHAR-MODE-COUNTER))
  216. :sf CHAR-MODE-COUNTER "p_xp_CHAR_2DMODE_2DCOUNTER"
  217. :proclaim (QUOTE (INLINE DEPTH-IN-BLOCKS))
  218. :sf DEPTH-IN-BLOCKS "p_xp_DEPTH_2DIN_2DBLOCKS"
  219. :proclaim (QUOTE (INLINE BLOCK-STACK))
  220. :sf BLOCK-STACK "p_xp_BLOCK_2DSTACK"
  221. :proclaim (QUOTE (INLINE BLOCK-STACK-PTR))
  222. :sf BLOCK-STACK-PTR "p_xp_BLOCK_2DSTACK_2DPTR"
  223. :proclaim (QUOTE (INLINE BUFFER))
  224. :sf BUFFER "p_xp_BUFFER"
  225. :proclaim (QUOTE (INLINE CHARPOS))
  226. :sf CHARPOS "p_xp_CHARPOS"
  227. :proclaim (QUOTE (INLINE BUFFER-PTR))
  228. :sf BUFFER-PTR "p_xp_BUFFER_2DPTR"
  229. :proclaim (QUOTE (INLINE BUFFER-OFFSET))
  230. :sf BUFFER-OFFSET "p_xp_BUFFER_2DOFFSET"
  231. :proclaim (QUOTE (INLINE QUEUE))
  232. :sf QUEUE "p_xp_QUEUE"
  233. :proclaim (QUOTE (INLINE QLEFT))
  234. :sf QLEFT "p_xp_QLEFT"
  235. :proclaim (QUOTE (INLINE QRIGHT))
  236. :sf QRIGHT "p_xp_QRIGHT"
  237. :proclaim (QUOTE (INLINE PREFIX))
  238. :sf PREFIX "p_xp_PREFIX"
  239. :proclaim (QUOTE (INLINE PREFIX-STACK))
  240. :sf PREFIX-STACK "p_xp_PREFIX_2DSTACK"
  241. :proclaim (QUOTE (INLINE PREFIX-STACK-PTR))
  242. :sf PREFIX-STACK-PTR "p_xp_PREFIX_2DSTACK_2DPTR"
  243. :proclaim (QUOTE (INLINE SUFFIX))
  244. :sf SUFFIX "p_xp_SUFFIX"
  245. :proclaim (QUOTE (INLINE SET-BASE-STREAM!@$))
  246. :sf SET-BASE-STREAM!@$ "p_xp_SET_2DBASE_2DSTREAM_21_40_24"
  247. :proclaim (QUOTE (INLINE SET-LINEL!@$))
  248. :sf SET-LINEL!@$ "p_xp_SET_2DLINEL_21_40_24"
  249. :proclaim (QUOTE (INLINE SET-LINE-LIMIT!@$))
  250. :sf SET-LINE-LIMIT!@$ "p_xp_SET_2DLINE_2DLIMIT_21_40_24"
  251. :proclaim (QUOTE (INLINE SET-LINE-NO!@$))
  252. :sf SET-LINE-NO!@$ "p_xp_SET_2DLINE_2DNO_21_40_24"
  253. :proclaim (QUOTE (INLINE SET-CHAR-MODE!@$))
  254. :sf SET-CHAR-MODE!@$ "p_xp_SET_2DCHAR_2DMODE_21_40_24"
  255. :proclaim (QUOTE (INLINE SET-CHAR-MODE-COUNTER!@$))
  256. :sf SET-CHAR-MODE-COUNTER!@$ "p_xp_SET_2DCHAR_2DMODE_2DCOUNTER_21_40_24"
  257. :proclaim (QUOTE (INLINE SET-DEPTH-IN-BLOCKS!@$))
  258. :sf SET-DEPTH-IN-BLOCKS!@$ "p_xp_SET_2DDEPTH_2DIN_2DBLOCKS_21_40_24"
  259. :proclaim (QUOTE (INLINE SET-BLOCK-STACK!@$))
  260. :sf SET-BLOCK-STACK!@$ "p_xp_SET_2DBLOCK_2DSTACK_21_40_24"
  261. :proclaim (QUOTE (INLINE SET-BLOCK-STACK-PTR!@$))
  262. :sf SET-BLOCK-STACK-PTR!@$ "p_xp_SET_2DBLOCK_2DSTACK_2DPTR_21_40_24"
  263. :proclaim (QUOTE (INLINE SET-BUFFER!@$))
  264. :sf SET-BUFFER!@$ "p_xp_SET_2DBUFFER_21_40_24"
  265. :proclaim (QUOTE (INLINE SET-CHARPOS!@$))
  266. :sf SET-CHARPOS!@$ "p_xp_SET_2DCHARPOS_21_40_24"
  267. :proclaim (QUOTE (INLINE SET-BUFFER-PTR!@$))
  268. :sf SET-BUFFER-PTR!@$ "p_xp_SET_2DBUFFER_2DPTR_21_40_24"
  269. :proclaim (QUOTE (INLINE SET-BUFFER-OFFSET!@$))
  270. :sf SET-BUFFER-OFFSET!@$ "p_xp_SET_2DBUFFER_2DOFFSET_21_40_24"
  271. :proclaim (QUOTE (INLINE SET-QUEUE!@$))
  272. :sf SET-QUEUE!@$ "p_xp_SET_2DQUEUE_21_40_24"
  273. :proclaim (QUOTE (INLINE SET-QLEFT!@$))
  274. :sf SET-QLEFT!@$ "p_xp_SET_2DQLEFT_21_40_24"
  275. :proclaim (QUOTE (INLINE SET-QRIGHT!@$))
  276. :sf SET-QRIGHT!@$ "p_xp_SET_2DQRIGHT_21_40_24"
  277. :proclaim (QUOTE (INLINE SET-PREFIX!@$))
  278. :sf SET-PREFIX!@$ "p_xp_SET_2DPREFIX_21_40_24"
  279. :proclaim (QUOTE (INLINE SET-PREFIX-STACK!@$))
  280. :sf SET-PREFIX-STACK!@$ "p_xp_SET_2DPREFIX_2DSTACK_21_40_24"
  281. :proclaim (QUOTE (INLINE SET-PREFIX-STACK-PTR!@$))
  282. :sf SET-PREFIX-STACK-PTR!@$ "p_xp_SET_2DPREFIX_2DSTACK_2DPTR_21_40_24"
  283. :proclaim (QUOTE (INLINE SET-SUFFIX!@$))
  284. :sf SET-SUFFIX!@$ "p_xp_SET_2DSUFFIX_21_40_24"
  285. :sf COPY-XP-STRUCTURE "p_xp_COPY_2DXP_2DSTRUCTURE"
  286. :sym BUFFER-PTR
  287. :sym CHARPOS
  288. :sym +
  289. :sm LP<-BP "m_xp_LP_3C_2DBP"
  290. :sym BUFFER-OFFSET
  291. :sm TP<-BP "m_xp_TP_3C_2DBP"
  292. :sym -
  293. :sm BP<-LP "m_xp_BP_3C_2DLP"
  294. :sm BP<-TP "m_xp_BP_3C_2DTP"
  295. :sym BP<-TP
  296. :sym LP<-BP
  297. :sm LP<-TP "m_xp_LP_3C_2DTP"
  298. :sym STRING
  299. :sym CONCATENATE
  300. :sym LISP::COERCE-TO-PACKAGE
  301. :sym LISP::INTERN/2
  302. :sym >
  303. :sym LET*
  304. :sym OLD
  305. :sym MAKE-ARRAY
  306. :sym :ELEMENT-TYPE
  307. :sym ARRAY-ELEMENT-TYPE
  308. :sym NEW
  309. :sym REPLACE
  310. :sym SETF
  311. :sym LIST
  312. :sym WHEN
  313. :sm CHECK-SIZE "m_xp_CHECK_2DSIZE"
  314. :sym BLOCK-STACK
  315. :sym BLOCK-STACK-PTR
  316. :sym AREF
  317. :sm SECTION-START "m_xp_SECTION_2DSTART"
  318. :sym LISP::REPLACE/6
  319. :sf PUSH-BLOCK-STACK "p_xp_PUSH_2DBLOCK_2DSTACK"
  320. :sf POP-BLOCK-STACK "p_xp_POP_2DBLOCK_2DSTACK"
  321. :sym PREFIX-STACK
  322. :sym PREFIX-STACK-PTR
  323. :sm PREFIX-PTR "m_xp_PREFIX_2DPTR"
  324. :sm SUFFIX-PTR "m_xp_SUFFIX_2DPTR"
  325. :sm NON-BLANK-PREFIX-PTR "m_xp_NON_2DBLANK_2DPREFIX_2DPTR"
  326. :sm INITIAL-PREFIX-PTR "m_xp_INITIAL_2DPREFIX_2DPTR"
  327. :sm SECTION-START-LINE "m_xp_SECTION_2DSTART_2DLINE"
  328. :sf PUSH-PREFIX-STACK "p_xp_PUSH_2DPREFIX_2DSTACK"
  329. :sf POP-PREFIX-STACK "p_xp_POP_2DPREFIX_2DSTACK"
  330. :sym QUEUE
  331. :sm QTYPE "m_xp_QTYPE"
  332. :sym 1+
  333. :sm QKIND "m_xp_QKIND"
  334. :sm QPOS "m_xp_QPOS"
  335. :sm QDEPTH "m_xp_QDEPTH"
  336. :sm QEND "m_xp_QEND"
  337. :sm QOFFSET "m_xp_QOFFSET"
  338. :sm QARG "m_xp_QARG"
  339. :sf ENQUEUE "p_xp_ENQUEUE"
  340. :sm QNEXT "m_xp_QNEXT"
  341. :sym FORMAT
  342. :sym LISP::SUBSEQ-1
  343. :sym *DESCRIBE-XP-STREAMS-FULLY*
  344. :sym PRINC
  345. :sym POP-BLOCK-STACK
  346. :sym :NEWLINE
  347. :sym :IND
  348. :sym :START-BLOCK
  349. :sym :END-BLOCK
  350. :sym POP-PREFIX-STACK
  351. :sf DESCRIBE-XP "p_xp_DESCRIBE_2DXP"
  352. :sym *FREE-XPS*
  353. :sym INITIALIZE-XP
  354. :sf GET-PRETTY-PRINT-STREAM "p_xp_GET_2DPRETTY_2DPRINT_2DSTREAM"
  355. :sf FREE-PRETTY-PRINT-STREAM "p_xp_FREE_2DPRETTY_2DPRINT_2DSTREAM"
  356. :sym *PRINT-RIGHT-MARGIN*
  357. :sym OUTPUT-WIDTH
  358. :sym *DEFAULT-RIGHT-MARGIN*
  359. :sym *PRINT-LINES*
  360. :sym OUTPUT-POSITION
  361. :sf INITIALIZE-XP "p_xp_INITIALIZE_2DXP"
  362. :sf PUSH-CHAR-MODE "p_xp_PUSH_2DCHAR_2DMODE"
  363. :sf POP-CHAR-MODE "p_xp_POP_2DCHAR_2DMODE"
  364. :sym :CAP0
  365. :sym ALPHANUMERICP
  366. :sym :DOWN
  367. :sym CHAR-UPCASE
  368. :sym :CAP1
  369. :sym :CAPW
  370. :sym CHAR-DOWNCASE
  371. :sym :UP
  372. :sf HANDLE-CHAR-MODE "p_xp_HANDLE_2DCHAR_2DMODE"
  373. :sym :UNCONDITIONAL
  374. :sym PPRINT-NEWLINE+
  375. :sym WRITE-CHAR++
  376. :sf WRITE-CHAR+ "p_xp_WRITE_2DCHAR_2B"
  377. :sym CHAR=
  378. :sym :START
  379. :sym :END
  380. :sym POSITION
  381. :sym WRITE-STRING++
  382. :sf WRITE-STRING+ "p_xp_WRITE_2DSTRING_2B"
  383. :sym FORCE-SOME-OUTPUT
  384. :sym HANDLE-CHAR-MODE
  385. :sf WRITE-CHAR++ "p_xp_WRITE_2DCHAR_2B_2B"
  386. :sym ATTEMPT-TO-OUTPUT
  387. :sf FORCE-SOME-OUTPUT "p_xp_FORCE_2DSOME_2DOUTPUT"
  388. :sym WRITE-STRING+++
  389. :sf WRITE-STRING++ "p_xp_WRITE_2DSTRING_2B_2B"
  390. :sym CHAR
  391. :sf WRITE-STRING+++ "p_xp_WRITE_2DSTRING_2B_2B_2B"
  392. :sym :SECTION
  393. :sym :LINE-RELATIVE
  394. :sym :SECTION-RELATIVE
  395. :sym LISP::FLOOR/1V
  396. :sym FILL
  397. :sf PPRINT-TAB+ "p_xp_PPRINT_2DTAB_2B"
  398. :sym ENQUEUE
  399. :sym :FRESH
  400. :sym :MANDATORY
  401. :sf PPRINT-NEWLINE+ "p_xp_PPRINT_2DNEWLINE_2B"
  402. :sym PUSH-BLOCK-STACK
  403. :sf START-BLOCK "p_xp_START_2DBLOCK"
  404. :sym *ABBREVIATION-HAPPENED*
  405. :sym WRITE-STRING+
  406. :sf END-BLOCK "p_xp_END_2DBLOCK"
  407. :sf PPRINT-INDENT+ "p_xp_PPRINT_2DINDENT_2B"
  408. :sym LINEL
  409. :sym LIMIT
  410. :sym LINE-LIMIT
  411. :sym LINE-NO
  412. :sym DECF
  413. :sym MINUSP
  414. :sym SUFFIX-PTR
  415. :sym COND
  416. :sym QEND
  417. :sym QPOS
  418. :sym LP<-TP
  419. :sym FORCE-NEWLINES?
  420. :sym RETURN
  421. :sm MAYBE-TOO-LARGE "m_xp_MAYBE_2DTOO_2DLARGE"
  422. :sym <=
  423. :sym INITIAL-PREFIX-PTR
  424. :sym *PRINT-MISER-WIDTH*
  425. :sm MISERING? "m_xp_MISERING_3F"
  426. :sym :BLOCK
  427. :sym SET-INDENTATION-PREFIX
  428. :sym PUSH-PREFIX-STACK
  429. :sym SET-PREFIX
  430. :sym SET-SUFFIX
  431. :sym :MISER
  432. :sym :FILL
  433. :sym OUTPUT-LINE
  434. :sym SETUP-FOR-NEXT-LINE
  435. :sym FLUSH
  436. :sf ATTEMPT-TO-OUTPUT "p_xp_ATTEMPT_2DTO_2DOUTPUT"
  437. :sym *LOCATING-CIRCULARITIES*
  438. :sym LISP::WRITE-STRING/4
  439. :sf FLUSH "p_xp_FLUSH"
  440. :sym :TEST-NOT
  441. :sym :FROM-END
  442. :sym REVERSE-STRING-IN-PLACE
  443. :sym LINE-LIMIT-ABBREVIATION-EXIT
  444. :sym LISP::WRITE-LINE/4
  445. :sf OUTPUT-LINE "p_xp_OUTPUT_2DLINE"
  446. :sf SETUP-FOR-NEXT-LINE "p_xp_SETUP_2DFOR_2DNEXT_2DLINE"
  447. :sf SET-INDENTATION-PREFIX "p_xp_SET_2DINDENTATION_2DPREFIX"
  448. :sf SET-PREFIX "p_xp_SET_2DPREFIX"
  449. :sf SET-SUFFIX "p_xp_SET_2DSUFFIX"
  450. :sf REVERSE-STRING-IN-PLACE "p_xp_REVERSE_2DSTRING_2DIN_2DPLACE"
  451. :sym WRITE
  452. :sym PRINT
  453. :sym PRIN1
  454. :sym PRINC
  455. :sym PPRINT
  456. :sym FORMAT
  457. :sym WRITE-TO-STRING
  458. :sym PRINC-TO-STRING
  459. :sym PRIN1-TO-STRING
  460. :sym WRITE-LINE
  461. :sym WRITE-STRING
  462. :sym WRITE-CHAR
  463. :sym TERPRI
  464. :sym FRESH-LINE
  465. :sym DEFSTRUCT
  466. :sym FINISH-OUTPUT
  467. :sym FORCE-OUTPUT
  468. :sym CLEAR-OUTPUT
  469. :sym :VAR
  470. :sym LISP::DEFINE-VARIABLE
  471. :sym *PRINT-SHARED*
  472. :sym *LAST-ABBREVIATED-PRINTING*
  473. :sym *RESULT*
  474. :sym *PARENTS*
  475. :sym *CIRCULARITY-HASH-TABLE*
  476. :sym ALWAYS-TRUE
  477. :sym SIMPLE-ATOM
  478. :sym SIMPLE-ATOM-P
  479. :sym OTHERP
  480. :sym NULL
  481. :sym SYMBOL
  482. :sym SYMBOLP
  483. :sym ATOM
  484. :sym LISTP
  485. :sym NUMBER
  486. :sym NUMBERP
  487. :sym INTEGER
  488. :sym INTEGERP
  489. :sym RATIONAL
  490. :sym RATIONALP
  491. :sym FLOAT
  492. :sym FLOATP
  493. :sym COMPLEX
  494. :sym COMPLEXP
  495. :sym CHARACTER
  496. :sym CHARACTERP
  497. :sym STRINGP
  498. :sym BIT-VECTOR
  499. :sym BIT-VECTOR-P
  500. :sym VECTOR
  501. :sym VECTORP
  502. :sym SIMPLE-VECTOR
  503. :sym SIMPLE-VECTOR-P
  504. :sym SIMPLE-STRING
  505. :sym SIMPLE-STRING-P
  506. :sym SIMPLE-BIT-VECTOR
  507. :sym SIMPLE-BIT-VECTOR-P
  508. :sym ARRAY
  509. :sym ARRAYP
  510. :sym PACKAGE
  511. :sym FUNCTIONP
  512. :sym COMPILED-FUNCTION
  513. :sym COMPILED-FUNCTION-P
  514. :sym COMMON
  515. :sym COMMONP
  516. :sym *FORMAT-STRING-CACHE*
  517. :sym *FN-TABLE*
  518. :sym *TESTING-ERRORS*
  519. :sym LISP::STRUCT-INFO
  520. :sym LISP::STRUCT-SLOT
  521. :sym CONSES-WITH-CARS
  522. :sym MAKE-HASH-TABLE
  523. :sym HASH-TABLE
  524. :sym STRUCTURES
  525. :sym OTHERS
  526. :sym MAKE-PPRINT-DISPATCH
  527. :sym LISP::DEFAULT-WRITE-STRUCTURE
  528. :sym STRUCTURE
  529. :sym :DEFAULT
  530. :sym LISP::DEFINE-STRUCTURE
  531. :sym TEST
  532. :sym FN
  533. :sym FULL-SPEC
  534. :sym MAKE-ENTRY
  535. :sym BASE-STREAM
  536. :sym CHAR-MODE
  537. :sym CHAR-MODE-COUNTER
  538. :sym DEPTH-IN-BLOCKS
  539. :sym BUFFER
  540. :sym STRING-CHAR
  541. :sym QLEFT
  542. :sym QRIGHT
  543. :sym PREFIX
  544. :sym SUFFIX
  545. :sym MAKE-XP-STRUCTURE
  546. :sym COPY-XP-STRUCTURE
  547. :sym DESCRIBE-XP
  548. :sym LISP::DEFINE-MACRO
  549. :sym TP<-BP
  550. :sym BP<-LP
  551. :sym CHECK-SIZE
  552. :sym SECTION-START
  553. :sym PREFIX-PTR
  554. :sym NON-BLANK-PREFIX-PTR
  555. :sym SECTION-START-LINE
  556. :sym QTYPE
  557. :sym QKIND
  558. :sym QDEPTH
  559. :sym QOFFSET
  560. :sym QARG
  561. :sym QNEXT
  562. :sym MAYBE-TOO-LARGE
  563. :sym MISERING?
  564. :sf GLOBALS_INIT9 "p_xp_GLOBALS_5FINIT9"
  565. :init GLOBALS_INIT9
  566. :pinfo XP::SET-PREFIX-STACK-PTR!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-PREFIX-STACK-PTR!@$ (SET-STRUCTURE-ELT S 19 VALUE))) NIL T T
  567. :pinfo XP::PUSH-CHAR-MODE (XP::XP XP::NEW-MODE) NIL NIL NIL NIL NIL NIL T
  568. :pinfo XP::SET-BUFFER-OFFSET!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BUFFER-OFFSET!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
  569. :pinfo XP::SET-LINE-NO!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-LINE-NO!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
  570. :pinfo XP::OUTPUT-WIDTH (&OPTIONAL (XP::S *STANDARD-OUTPUT*)) NIL NIL NIL NIL NIL NIL T
  571. :pinfo XP::SET-OTHERS!@$ (S VALUE) NIL (XP:PPRINT-DISPATCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-OTHERS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
  572. :pinfo XP::OTHERS (S) NIL (XP:PPRINT-DISPATCH) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::OTHERS (STRUCTURE-ELT S 3))) NIL T T
  573. :pinfo XP::INITIALIZE-XP (XP::XP STREAM) NIL NIL NIL NIL NIL NIL T
  574. :pinfo XP::INSTALL (&KEY (PACKAGE *PACKAGE*) (XP::MACRO NIL) (SHADOW T) (REMOVE NIL)) NIL NIL NIL NIL NIL NIL T
  575. :pinfo XP::SET-FN!@$ (S VALUE) NIL (XP::ENTRY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-FN!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
  576. :pinfo XP::PUSH-BLOCK-STACK (XP::XP) NIL NIL NIL NIL NIL NIL T
  577. :pinfo XP:COPY-PPRINT-DISPATCH (&OPTIONAL (XP::TABLE XP:*PRINT-PPRINT-DISPATCH*)) NIL NIL NIL NIL NIL NIL T
  578. :pinfo XP::BLOCK-STACK-PTR (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BLOCK-STACK-PTR (STRUCTURE-ELT S 9))) NIL T T
  579. :pinfo XP::CONSES-WITH-CARS (S) NIL (XP:PPRINT-DISPATCH) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CONSES-WITH-CARS (STRUCTURE-ELT S 1))) NIL T T
  580. :pinfo XP::SET-PREFIX!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-PREFIX!@$ (SET-STRUCTURE-ELT S 17 VALUE))) NIL T T
  581. :pinfo XP::SETUP-FOR-NEXT-LINE (XP::XP XP::QENTRY) NIL NIL NIL NIL NIL NIL T
  582. :pinfo XP::SET-CHARPOS!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CHARPOS!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
  583. :pinfo XP::CHAR-MODE-COUNTER (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CHAR-MODE-COUNTER (STRUCTURE-ELT S 6))) NIL T T
  584. :pinfo XP::SPECIFIER-FN (XP::SPEC) NIL NIL NIL NIL NIL NIL T
  585. :pinfo XP::LINE-LIMIT (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::LINE-LIMIT (STRUCTURE-ELT S 3))) NIL T T
  586. :pinfo XP::WRITE-CHAR+ (CHAR XP::XP) NIL NIL NIL NIL NIL NIL T
  587. :pinfo XP::SET-SUFFIX (XP::XP XP::SUFFIX-STRING) NIL NIL NIL NIL NIL NIL T
  588. :pinfo XP::SET-BLOCK-STACK!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BLOCK-STACK!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
  589. :pinfo XP::POP-CHAR-MODE (XP::XP) NIL NIL NIL NIL NIL NIL T
  590. :pinfo XP::COPY-XP-STRUCTURE (S) NIL NIL NIL NIL NIL NIL T
  591. :pinfo XP::LINE-NO (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::LINE-NO (STRUCTURE-ELT S 4))) NIL T T
  592. :pinfo XP::COPY-ENTRY (S) NIL NIL NIL NIL NIL NIL T
  593. :pinfo XP::PPRINT-NEWLINE+ (XP::KIND XP::XP) NIL NIL NIL NIL NIL NIL T
  594. :pinfo XP::FN (S) NIL (XP::ENTRY) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::FN (STRUCTURE-ELT S 2))) NIL T T
  595. :pinfo XP:PPRINT-DISPATCH (XP::OBJECT &OPTIONAL (XP::TABLE XP:*PRINT-PPRINT-DISPATCH*)) NIL NIL NIL NIL NIL NIL T
  596. :pinfo XP::SET-CONSES-WITH-CARS!@$ (S VALUE) NIL (XP:PPRINT-DISPATCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CONSES-WITH-CARS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
  597. :pinfo XP::SET-PREFIX-STACK!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-PREFIX-STACK!@$ (SET-STRUCTURE-ELT S 18 VALUE))) NIL T T
  598. :pinfo XP::PUSH-PREFIX-STACK (XP::XP) NIL NIL NIL NIL NIL NIL T
  599. :pinfo XP::REVERSE-STRING-IN-PLACE (STRING XP::START XP::END) NIL NIL NIL NIL NIL NIL T
  600. :pinfo XP::PREFIX (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::PREFIX (STRUCTURE-ELT S 17))) NIL T T
  601. :pinfo XP::DESCRIBE-XP (XP::XP XP::S XP::DEPTH) NIL NIL NIL NIL NIL NIL T
  602. :pinfo XP::SPECIFIER-CATEGORY (XP::SPEC) NIL NIL NIL NIL NIL NIL T
  603. :pinfo XP::GET-PRETTY-PRINT-STREAM (STREAM) NIL NIL NIL NIL NIL NIL T
  604. :pinfo XP:SET-PPRINT-DISPATCH (XP::TYPE-SPECIFIER FUNCTION &OPTIONAL (XP::PRIORITY 0) (XP::TABLE XP:*PRINT-PPRINT-DISPATCH*)) NIL NIL NIL NIL NIL NIL T
  605. :pinfo XP::BUFFER-PTR (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BUFFER-PTR (STRUCTURE-ELT S 12))) NIL T T
  606. :pinfo XP::SET-INDENTATION-PREFIX (XP::XP XP::NEW-POSITION) NIL NIL NIL NIL NIL NIL T
  607. :pinfo XP::MAKE-ENTRY/3 (XP::TEST XP::FN XP::FULL-SPEC) NIL NIL NIL NIL NIL NIL T
  608. :pinfo XP::FORCE-SOME-OUTPUT (XP::XP) NIL NIL NIL NIL NIL NIL T
  609. :pinfo XP::POP-PREFIX-STACK (XP::XP) NIL NIL NIL NIL NIL NIL T
  610. :pinfo XP::SET-TEST!@$ (S VALUE) NIL (XP::ENTRY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-TEST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
  611. :pinfo XP::STRUCTURE-TYPE-P (XP::X) NIL NIL NIL NIL NIL NIL T
  612. :pinfo XP::GET-CIRCULARITY-HASH-TABLE NIL NIL NIL NIL NIL NIL NIL T
  613. :pinfo XP::ALWAYS-TRUE (XP::X) NIL NIL NIL NIL NIL NIL T
  614. :pinfo XP::BLOCK-STACK (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BLOCK-STACK (STRUCTURE-ELT S 8))) NIL T T
  615. :pinfo XP::FITS (XP::OBJ XP::ENTRY) NIL NIL NIL NIL NIL NIL T
  616. :pinfo XP::FREE-PRETTY-PRINT-STREAM (XP::XP) NIL NIL NIL NIL NIL NIL T
  617. :pinfo XP::SET-FULL-SPEC!@$ (S VALUE) NIL (XP::ENTRY T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-FULL-SPEC!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
  618. :pinfo XP::SET-STRUCTURES!@$ (S VALUE) NIL (XP:PPRINT-DISPATCH T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-STRUCTURES!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
  619. :pinfo XP::FLUID-ENTRY-P!@$ (S) NIL NIL NIL NIL NIL NIL T
  620. :pinfo XP::CONVERT-BODY (XP::SPEC) NIL NIL NIL NIL NIL NIL T
  621. :pinfo XP::FREE-CIRCULARITY-HASH-TABLE (XP::TABLE) NIL NIL NIL NIL NIL NIL T
  622. :pinfo XP::MAKE-XP-STRUCTURE/20 (XP::BASE-STREAM XP::LINEL XP::LINE-LIMIT XP::LINE-NO XP::CHAR-MODE XP::CHAR-MODE-COUNTER XP::DEPTH-IN-BLOCKS XP::BLOCK-STACK XP::BLOCK-STACK-PTR XP::BUFFER XP::CHARPOS XP::BUFFER-PTR XP::BUFFER-OFFSET XP::QUEUE XP::QLEFT XP::QRIGHT XP::PREFIX XP::PREFIX-STACK XP::PREFIX-STACK-PTR XP::SUFFIX) NIL NIL NIL NIL NIL NIL T
  623. :pinfo XP::SET-PPRINT-DISPATCH+ (XP::TYPE-SPECIFIER FUNCTION XP::PRIORITY XP::TABLE) NIL NIL NIL NIL NIL NIL T
  624. :pinfo XP::BASE-STREAM (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BASE-STREAM (STRUCTURE-ELT S 1))) NIL T T
  625. :pinfo XP::WRITE-STRING+ (STRING XP::XP XP::START XP::END) NIL NIL NIL NIL NIL NIL T
  626. :pinfo XP::SET-LINEL!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-LINEL!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
  627. :pinfo XP::SET-SUFFIX!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-SUFFIX!@$ (SET-STRUCTURE-ELT S 20 VALUE))) NIL T T
  628. :pinfo XP::SET-BUFFER!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BUFFER!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
  629. :pinfo XP::PRIORITY-> (XP::X XP::Y) NIL NIL NIL NIL NIL NIL T
  630. :pinfo XP::SET-QUEUE!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-QUEUE!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
  631. :pinfo XP::CHAR-MODE (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CHAR-MODE (STRUCTURE-ELT S 5))) NIL T T
  632. :pinfo XP::BUFFER-OFFSET (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BUFFER-OFFSET (STRUCTURE-ELT S 13))) NIL T T
  633. :pinfo XP::SUFFIX (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::SUFFIX (STRUCTURE-ELT S 20))) NIL T T
  634. :pinfo XP::WRITE-CHAR++ (CHAR XP::XP) NIL NIL NIL NIL NIL NIL T
  635. :pinfo XP::QUEUE (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::QUEUE (STRUCTURE-ELT S 14))) NIL T T
  636. :pinfo XP::SET-BLOCK-STACK-PTR!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BLOCK-STACK-PTR!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
  637. :pinfo XP::SET-DEPTH-IN-BLOCKS!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-DEPTH-IN-BLOCKS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
  638. :pinfo XP::WRITE-STRING+++ (STRING XP::XP XP::START XP::END) NIL NIL NIL NIL NIL NIL T
  639. :pinfo XP::PPRINT-TAB+ (XP::KIND XP::COLNUM XP::COLINC XP::XP) NIL NIL NIL NIL NIL NIL T
  640. :pinfo XP::MAKE-PPRINT-DISPATCH/3 (XP::CONSES-WITH-CARS XP::STRUCTURES XP::OTHERS) NIL NIL NIL NIL NIL NIL T
  641. :pinfo XP::DEPTH-IN-BLOCKS (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::DEPTH-IN-BLOCKS (STRUCTURE-ELT S 7))) NIL T T
  642. :pinfo XP::PREFIX-STACK (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::PREFIX-STACK (STRUCTURE-ELT S 18))) NIL T T
  643. :pinfo XP::PREFIX-STACK-PTR (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::PREFIX-STACK-PTR (STRUCTURE-ELT S 19))) NIL T T
  644. :pinfo XP::GLOBALS_INIT9 NIL NIL NIL NIL NIL NIL NIL T
  645. :pinfo XP::SET-QRIGHT!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-QRIGHT!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
  646. :pinfo XP::FLUSH (XP::XP) NIL NIL NIL NIL NIL NIL T
  647. :pinfo XP::ADJUST-COUNTS (XP::TABLE XP::PRIORITY XP::DELTA) NIL NIL NIL NIL NIL NIL T
  648. :pinfo XP::ATTEMPT-TO-OUTPUT (XP::XP XP::FORCE-NEWLINES? XP::FLUSH-OUT?) NIL NIL NIL NIL NIL NIL T
  649. :pinfo XP::QLEFT (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::QLEFT (STRUCTURE-ELT S 15))) NIL T T
  650. :pinfo XP::TEST (S) NIL (XP::ENTRY) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::TEST (STRUCTURE-ELT S 1))) NIL T T
  651. :pinfo XP::QRIGHT (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::QRIGHT (STRUCTURE-ELT S 16))) NIL T T
  652. :pinfo XP::OUTPUT-LINE (XP::XP XP::QENTRY) NIL NIL NIL NIL NIL NIL T
  653. :pinfo XP::MAKE-PPRINT-DISPATCH (&KEY (XP::CONSES-WITH-CARS (MAKE-HASH-TABLE :TEST (FUNCTION EQ))) (XP::STRUCTURES (MAKE-HASH-TABLE :TEST (FUNCTION EQ))) (XP::OTHERS NIL)) NIL NIL NIL (LAMBDA (&KEY (XP::CONSES-WITH-CARS (MAKE-HASH-TABLE :TEST (FUNCTION EQ))) (XP::STRUCTURES (MAKE-HASH-TABLE :TEST (FUNCTION EQ))) (XP::OTHERS NIL)) (DECLARE) (BLOCK XP::MAKE-PPRINT-DISPATCH (XP::MAKE-PPRINT-DISPATCH/3 XP::CONSES-WITH-CARS XP::STRUCTURES XP::OTHERS))) NIL T T
  654. :pinfo XP::SET-CHAR-MODE-COUNTER!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CHAR-MODE-COUNTER!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
  655. :pinfo XP::WRITE-STRING++ (STRING XP::XP XP::START XP::END) NIL NIL NIL NIL NIL NIL T
  656. :pinfo XP::HANDLE-CHAR-MODE (XP::XP CHAR) NIL NIL NIL NIL NIL NIL T
  657. :pinfo XP::START-BLOCK (XP::XP XP::PREFIX-STRING XP::ON-EACH-LINE? XP::SUFFIX-STRING) NIL NIL NIL NIL NIL NIL T
  658. :pinfo XP::FLUID-XP-STRUCTURE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
  659. :pinfo XP::SET-LINE-LIMIT!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-LINE-LIMIT!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
  660. :pinfo XP::ENQUEUE (XP::XP TYPE XP::KIND &OPTIONAL XP::ARG) NIL NIL NIL NIL NIL NIL T
  661. :pinfo XP::OUTPUT-POSITION (&OPTIONAL (XP::S *STANDARD-OUTPUT*)) NIL NIL NIL NIL NIL NIL T
  662. :pinfo XP::GET-PRINTER (XP::OBJECT XP::TABLE) NIL NIL NIL NIL NIL NIL T
  663. :pinfo XP::FLUID-PPRINT-DISPATCH-P!@$ (S) NIL NIL NIL NIL NIL NIL T
  664. :pinfo XP::POP-BLOCK-STACK (XP::XP) NIL NIL NIL NIL NIL NIL T
  665. :pinfo XP::STRUCTURES (S) NIL (XP:PPRINT-DISPATCH) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::STRUCTURES (STRUCTURE-ELT S 2))) NIL T T
  666. :pinfo XP::MAKE-XP-STRUCTURE (&KEY (XP::BASE-STREAM NIL) (XP::LINEL NIL) (XP::LINE-LIMIT NIL) (XP::LINE-NO NIL) (XP::CHAR-MODE NIL) (XP::CHAR-MODE-COUNTER NIL) (XP::DEPTH-IN-BLOCKS NIL) (XP::BLOCK-STACK (MAKE-ARRAY 35)) (XP::BLOCK-STACK-PTR NIL) (XP::BUFFER (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR))) (XP::CHARPOS NIL) (XP::BUFFER-PTR NIL) (XP::BUFFER-OFFSET NIL) (XP::QUEUE (MAKE-ARRAY 525)) (XP::QLEFT NIL) (XP::QRIGHT NIL) (XP::PREFIX (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR))) (XP::PREFIX-STACK (MAKE-ARRAY 150)) (XP::PREFIX-STACK-PTR NIL) (XP::SUFFIX (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR)))) NIL NIL NIL (LAMBDA (&KEY (XP::BASE-STREAM NIL) (XP::LINEL NIL) (XP::LINE-LIMIT NIL) (XP::LINE-NO NIL) (XP::CHAR-MODE NIL) (XP::CHAR-MODE-COUNTER NIL) (XP::DEPTH-IN-BLOCKS NIL) (XP::BLOCK-STACK (MAKE-ARRAY 35)) (XP::BLOCK-STACK-PTR NIL) (XP::BUFFER (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR))) (XP::CHARPOS NIL) (XP::BUFFER-PTR NIL) (XP::BUFFER-OFFSET NIL) (XP::QUEUE (MAKE-ARRAY 525)) (XP::QLEFT NIL) (XP::QRIGHT NIL) (XP::PREFIX (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR))) (XP::PREFIX-STACK (MAKE-ARRAY 150)) (XP::PREFIX-STACK-PTR NIL) (XP::SUFFIX (MAKE-ARRAY 256 :ELEMENT-TYPE (QUOTE STRING-CHAR)))) (DECLARE) (BLOCK XP::MAKE-XP-STRUCTURE (XP::MAKE-XP-STRUCTURE/20 XP::BASE-STREAM XP::LINEL XP::LINE-LIMIT XP::LINE-NO XP::CHAR-MODE XP::CHAR-MODE-COUNTER XP::DEPTH-IN-BLOCKS XP::BLOCK-STACK XP::BLOCK-STACK-PTR XP::BUFFER XP::CHARPOS XP::BUFFER-PTR XP::BUFFER-OFFSET XP::QUEUE XP::QLEFT XP::QRIGHT XP::PREFIX XP::PREFIX-STACK XP::PREFIX-STACK-PTR XP::SUFFIX))) NIL T T
  667. :pinfo XP::FULL-SPEC (S) NIL (XP::ENTRY) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::FULL-SPEC (STRUCTURE-ELT S 3))) NIL T T
  668. :pinfo XP::SET-CHAR-MODE!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-CHAR-MODE!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
  669. :pinfo XP::CHARPOS (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::CHARPOS (STRUCTURE-ELT S 11))) NIL T T
  670. :pinfo XP::LINEL (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::LINEL (STRUCTURE-ELT S 2))) NIL T T
  671. :pinfo XP::MAKE-ENTRY (&KEY (XP::TEST NIL) (XP::FN NIL) (XP::FULL-SPEC NIL)) NIL NIL NIL (LAMBDA (&KEY (XP::TEST NIL) (XP::FN NIL) (XP::FULL-SPEC NIL)) (DECLARE) (BLOCK XP::MAKE-ENTRY (XP::MAKE-ENTRY/3 XP::TEST XP::FN XP::FULL-SPEC))) NIL T T
  672. :pinfo XP::BUFFER (S) NIL (XP::XP-STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK XP::BUFFER (STRUCTURE-ELT S 10))) NIL T T
  673. :pinfo XP::SET-QLEFT!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-QLEFT!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
  674. :pinfo XP::END-BLOCK (XP::XP XP::SUFFIX) NIL NIL NIL NIL NIL NIL T
  675. :pinfo XP::PPRINT-INDENT+ (XP::KIND XP::N XP::XP) NIL NIL NIL NIL NIL NIL T
  676. :pinfo XP::SET-BASE-STREAM!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BASE-STREAM!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
  677. :pinfo XP::SET-PREFIX (XP::XP XP::PREFIX-STRING) NIL NIL NIL NIL NIL NIL T
  678. :pinfo XP::SET-BUFFER-PTR!@$ (S VALUE) NIL (XP::XP-STRUCTURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK XP::SET-BUFFER-PTR!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
  679. :end
  680. */
  681.  
  682. #include "lisp.h"
  683.  
  684. extern LP p_xp_MAKE_2DPPRINT_2DDISPATCH();
  685. extern SYMBOL s_key_CONSES_2DWITH_2DCARS; 
  686. extern SYMBOL s_lsp_EQ; 
  687. MAKE_FLOAT(k38,2.0);
  688. MAKE_FLOAT(k39,0.6);
  689. extern SYMBOL s_lsp_MAKE_2DHASH_2DTABLE_2D1; 
  690. extern SYMBOL s_key_STRUCTURES; 
  691. extern SYMBOL s_key_OTHERS; 
  692. extern SYMBOL s_lsp_NIL; 
  693. extern SYMBOL s_xp_MAKE_2DPPRINT_2DDISPATCH_2F3; 
  694. extern LP p_xp_MAKE_2DPPRINT_2DDISPATCH_2F3();
  695. extern SYMBOL s_xp_PPRINT_2DDISPATCH; 
  696. extern LP p_xp_FLUID_2DPPRINT_2DDISPATCH_2DP_21_40_24();
  697. extern SYMBOL s_lsp_INHERITED_2DSTRUCTURE_2DNAME_2DP; 
  698. extern LP p_xp_CONSES_2DWITH_2DCARS();
  699. extern SYMBOL s_xp_PPRINT_2DDISPATCH_2DP; 
  700. extern SYMBOL s_lsp_WTA; 
  701. extern LP p_xp_STRUCTURES();
  702. extern LP p_xp_OTHERS();
  703. extern LP p_xp_SET_2DCONSES_2DWITH_2DCARS_21_40_24();
  704. extern LP p_xp_SET_2DSTRUCTURES_21_40_24();
  705. extern LP p_xp_SET_2DOTHERS_21_40_24();
  706. extern LP p_xp_MAKE_2DENTRY();
  707. extern SYMBOL s_key_TEST; 
  708. extern SYMBOL s_key_FN; 
  709. extern SYMBOL s_key_FULL_2DSPEC; 
  710. extern SYMBOL s_xp_MAKE_2DENTRY_2F3; 
  711. extern LP p_xp_MAKE_2DENTRY_2F3();
  712. extern SYMBOL s_xp_ENTRY; 
  713. extern LP p_xp_FLUID_2DENTRY_2DP_21_40_24();
  714. extern LP p_xp_TEST();
  715. extern SYMBOL s_xp_ENTRY_2DP; 
  716. extern LP p_xp_FN();
  717. extern LP p_xp_FULL_2DSPEC();
  718. extern LP p_xp_SET_2DTEST_21_40_24();
  719. extern LP p_xp_SET_2DFN_21_40_24();
  720. extern LP p_xp_SET_2DFULL_2DSPEC_21_40_24();
  721. extern LP p_xp_COPY_2DENTRY();
  722. extern SYMBOL s_lsp_COPY_2DSTRUCTURE; 
  723. extern LP p_xp_STRUCTURE_2DTYPE_2DP();
  724. extern SYMBOL s_lsp__2ASTRUCTURE_2DINFO_2A; 
  725. extern SYMBOL s_lsp_GETHASH; 
  726. extern LP p_xp_OUTPUT_2DWIDTH();
  727. extern SYMBOL s_lsp__2ASTANDARD_2DOUTPUT_2A; 
  728. extern LP p_xp_OUTPUT_2DPOSITION();
  729. extern SYMBOL s_lsp_STREAM_2DCOLUMN; 
  730. extern LP p_xp_INSTALL();
  731. extern SYMBOL s_key_PACKAGE; 
  732. extern SYMBOL s_lsp__2APACKAGE_2A; 
  733. extern SYMBOL s_key_MACRO; 
  734. extern SYMBOL s_key_SHADOW; 
  735. extern SYMBOL s_lsp_T; 
  736. extern SYMBOL s_key_REMOVE; 
  737. extern SYMBOL s_lsp_PACKAGEP; 
  738. extern SYMBOL s_lsp_FIND_2DPACKAGE; 
  739. extern SYMBOL s_xp_FORMAT_2DSTRING_2DREADER; 
  740. extern SYMBOL s_lsp_SET_2DDISPATCH_2DMACRO_2DCHARACTER; 
  741. MAKE_SIMPLE_STRING(k40,2,"XP");
  742. extern SYMBOL s_lsp_USE_2DPACKAGE; 
  743. extern SYMBOL s_xp__2AXP_2DPRINTING_2DFUNCTIONS_2A; 
  744. extern SYMBOL s_lsp_SHADOWING_2DIMPORT; 
  745. extern SYMBOL s_lsp_PACKAGE_2DUSE_2DLIST; 
  746. extern SYMBOL s_lsp_MEMQL; 
  747. extern SYMBOL s_lsp_UNUSE_2DPACKAGE; 
  748. extern SYMBOL s_lsp_INTERSECTION; 
  749. extern SYMBOL s_lsp_UNINTERN; 
  750. extern LP p_xp_GET_2DCIRCULARITY_2DHASH_2DTABLE();
  751. extern SYMBOL s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A; 
  752. extern LP p_xp_FREE_2DCIRCULARITY_2DHASH_2DTABLE();
  753. extern SYMBOL s_lsp_CLRHASH; 
  754. extern SYMBOL s_lsp_EQL; 
  755. extern SYMBOL s_lsp_IDENTITY; 
  756. extern SYMBOL s_lsp_ADJOIN_2F4; 
  757. extern LP p_xp_COPY_2DPPRINT_2DDISPATCH();
  758. extern SYMBOL s_xp__2APRINT_2DPPRINT_2DDISPATCH_2A; 
  759. extern SYMBOL s_xp__2AIPD_2A; 
  760. extern SYMBOL s_lsp_MAX; 
  761. extern LP p_xp_COPY_2DPPRINT_2DDISPATCH_2Danon4142();
  762. extern SYMBOL s_lsp_MAPHASH; 
  763. extern LP p_xp_COPY_2DPPRINT_2DDISPATCH_2Danon4344();
  764. extern SYMBOL s_lsp_COPY_2DLIST; 
  765. extern SYMBOL s_xp_COPY_2DENTRY; 
  766. extern SYMBOL s_lsp_SET_2DGETHASH; 
  767. extern LP p_xp_SET_2DPPRINT_2DDISPATCH();
  768. MAKE_SIMPLE_STRING(k45,51,"invalid PRIORITY argument ~A to SET-PPRINT-DISPATCH");
  769. extern SYMBOL s_lsp_ERROR; 
  770. extern SYMBOL s_xp_SET_2DPPRINT_2DDISPATCH_2B; 
  771. extern LP p_xp_SET_2DPPRINT_2DDISPATCH_2B();
  772. extern SYMBOL s_xp_SPECIFIER_2DCATEGORY; 
  773. extern SYMBOL s_xp_OTHER; 
  774. extern SYMBOL s_xp_SPECIFIER_2DFN; 
  775. extern SYMBOL s_xp_X; 
  776. MAKE_CONS(k52,LREF(s_xp_X),LREF(s_lsp_NIL));
  777. extern SYMBOL s_lsp_EQUAL; 
  778. extern SYMBOL s_lsp_COMPILE; 
  779. extern SYMBOL s_xp_CONS_2DWITH_2DCAR; 
  780. extern LP p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon4647();
  781. extern SYMBOL s_lsp_COUNT_2DIF; 
  782. extern SYMBOL s_lsp_REMHASH; 
  783. extern SYMBOL s_xp_STRUCTURE_2DTYPE; 
  784. extern LP p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon4849();
  785. extern LP p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon5051();
  786. MAKE_PROCEDURE(k53,p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon5051);
  787. extern SYMBOL s_lsp_MEMBER_2F4; 
  788. extern SYMBOL s_lsp_LENGTH; 
  789. extern SYMBOL s_lsp_SEQ_2DTEST; 
  790. extern SYMBOL s_lsp_DELETE_2F8; 
  791. extern SYMBOL s_xp_ADJUST_2DCOUNTS; 
  792. extern SYMBOL s_xp_PRIORITY_2D_3E; 
  793. extern LP p_xp_PRIORITY_2D_3E();
  794. extern LP p_xp_ADJUST_2DCOUNTS();
  795. extern LP p_xp_ADJUST_2DCOUNTS_2Danon5455();
  796. extern LP p_xp_ADJUST_2DCOUNTS_2Danon5657();
  797. extern LP p_xp_PPRINT_2DDISPATCH();
  798. extern SYMBOL s_xp_GET_2DPRINTER; 
  799. extern SYMBOL s_xp_NON_2DPRETTY_2DPRINT; 
  800. extern LP p_xp_GET_2DPRINTER();
  801. extern SYMBOL s_lsp_TYPE_2DOF; 
  802. extern SYMBOL s_xp_FITS; 
  803. extern SYMBOL s_lsp_FIND; 
  804. extern LP p_xp_FITS();
  805. extern LP p_xp_SPECIFIER_2DCATEGORY();
  806. extern SYMBOL s_lsp_CONS; 
  807. extern SYMBOL s_lsp_MEMBER; 
  808. extern SYMBOL s_xp_STRUCTURE_2DTYPE_2DP; 
  809. extern LP p_xp_ALWAYS_2DTRUE();
  810. extern LP p_xp_SPECIFIER_2DFN();
  811. extern SYMBOL s_xp_CONVERT_2DBODY; 
  812. extern SYMBOL s_lsp_LAMBDA; 
  813. extern LP p_xp_CONVERT_2DBODY();
  814. extern SYMBOL s_lsp_AND; 
  815. extern SYMBOL s_lsp_OR; 
  816. extern SYMBOL s_lsp_NOT; 
  817. MAKE_CONS(k60,LREF(s_lsp_NOT),LREF(s_lsp_NIL));
  818. MAKE_CONS(k59,LREF(s_lsp_OR),LREF(k60));
  819. MAKE_CONS(k58,LREF(s_lsp_AND),LREF(k59));
  820. extern SYMBOL s_lsp_QUOTE; 
  821. extern SYMBOL s_lsp_CONSP; 
  822. MAKE_CONS(k61,LREF(s_lsp_CONSP),LREF(k52));
  823. extern SYMBOL s_lsp_CAR; 
  824. MAKE_CONS(k65,LREF(s_lsp_CAR),LREF(k52));
  825. MAKE_CONS(k64,LREF(k65),LREF(s_lsp_NIL));
  826. MAKE_CONS(k63,LREF(s_xp_X),LREF(k64));
  827. MAKE_CONS(k62,LREF(k63),LREF(s_lsp_NIL));
  828. extern SYMBOL s_lsp_LET; 
  829. extern SYMBOL s_lsp_CDR; 
  830. MAKE_CONS(k69,LREF(s_lsp_CDR),LREF(k52));
  831. MAKE_CONS(k68,LREF(k69),LREF(s_lsp_NIL));
  832. MAKE_CONS(k67,LREF(s_xp_X),LREF(k68));
  833. MAKE_CONS(k66,LREF(k67),LREF(s_lsp_NIL));
  834. extern SYMBOL s_lsp_APPEND_2F2; 
  835. extern SYMBOL s_lsp_LIST_2A; 
  836. extern SYMBOL s_lsp_SATISFIES; 
  837. extern SYMBOL s_lsp_FUNCALL; 
  838. extern SYMBOL s_lsp_FUNCTION; 
  839. extern SYMBOL s_lsp_COPY_2DTREE; 
  840. extern SYMBOL s_lsp_TYPEP; 
  841. extern SYMBOL s_xp__2APREDS_2DFOR_2DSPECS_2A; 
  842. extern SYMBOL s_lsp_ASSQL; 
  843. extern LP p_xp_MAKE_2DXP_2DSTRUCTURE();
  844. extern SYMBOL s_key_BASE_2DSTREAM; 
  845. extern SYMBOL s_key_LINEL; 
  846. extern SYMBOL s_key_LINE_2DLIMIT; 
  847. extern SYMBOL s_key_LINE_2DNO; 
  848. extern SYMBOL s_key_CHAR_2DMODE; 
  849. extern SYMBOL s_key_CHAR_2DMODE_2DCOUNTER; 
  850. extern SYMBOL s_key_DEPTH_2DIN_2DBLOCKS; 
  851. extern SYMBOL s_key_BLOCK_2DSTACK; 
  852. extern SYMBOL s_lsp_MAKE_2DSIMPLE_2DARRAY; 
  853. extern SYMBOL s_key_BLOCK_2DSTACK_2DPTR; 
  854. extern SYMBOL s_key_BUFFER; 
  855. extern SYMBOL s_key_CHARPOS; 
  856. extern SYMBOL s_key_BUFFER_2DPTR; 
  857. extern SYMBOL s_key_BUFFER_2DOFFSET; 
  858. extern SYMBOL s_key_QUEUE; 
  859. extern SYMBOL s_key_QLEFT; 
  860. extern SYMBOL s_key_QRIGHT; 
  861. extern SYMBOL s_key_PREFIX; 
  862. extern SYMBOL s_key_PREFIX_2DSTACK; 
  863. extern SYMBOL s_key_PREFIX_2DSTACK_2DPTR; 
  864. extern SYMBOL s_key_SUFFIX; 
  865. extern SYMBOL s_xp_MAKE_2DXP_2DSTRUCTURE_2F20; 
  866. extern LP p_xp_MAKE_2DXP_2DSTRUCTURE_2F20();
  867. extern SYMBOL s_xp_XP_2DSTRUCTURE; 
  868. extern LP p_xp_FLUID_2DXP_2DSTRUCTURE_2DP_21_40_24();
  869. extern LP p_xp_BASE_2DSTREAM();
  870. extern SYMBOL s_xp_XP_2DSTRUCTURE_2DP; 
  871. extern LP p_xp_LINEL();
  872. extern LP p_xp_LINE_2DLIMIT();
  873. extern LP p_xp_LINE_2DNO();
  874. extern LP p_xp_CHAR_2DMODE();
  875. extern LP p_xp_CHAR_2DMODE_2DCOUNTER();
  876. extern LP p_xp_DEPTH_2DIN_2DBLOCKS();
  877. extern LP p_xp_BLOCK_2DSTACK();
  878. extern LP p_xp_BLOCK_2DSTACK_2DPTR();
  879. extern LP p_xp_BUFFER();
  880. extern LP p_xp_CHARPOS();
  881. extern LP p_xp_BUFFER_2DPTR();
  882. extern LP p_xp_BUFFER_2DOFFSET();
  883. extern LP p_xp_QUEUE();
  884. extern LP p_xp_QLEFT();
  885. extern LP p_xp_QRIGHT();
  886. extern LP p_xp_PREFIX();
  887. extern LP p_xp_PREFIX_2DSTACK();
  888. extern LP p_xp_PREFIX_2DSTACK_2DPTR();
  889. extern LP p_xp_SUFFIX();
  890. extern LP p_xp_SET_2DBASE_2DSTREAM_21_40_24();
  891. extern LP p_xp_SET_2DLINEL_21_40_24();
  892. extern LP p_xp_SET_2DLINE_2DLIMIT_21_40_24();
  893. extern LP p_xp_SET_2DLINE_2DNO_21_40_24();
  894. extern LP p_xp_SET_2DCHAR_2DMODE_21_40_24();
  895. extern LP p_xp_SET_2DCHAR_2DMODE_2DCOUNTER_21_40_24();
  896. extern LP p_xp_SET_2DDEPTH_2DIN_2DBLOCKS_21_40_24();
  897. extern LP p_xp_SET_2DBLOCK_2DSTACK_21_40_24();
  898. extern LP p_xp_SET_2DBLOCK_2DSTACK_2DPTR_21_40_24();
  899. extern LP p_xp_SET_2DBUFFER_21_40_24();
  900. extern LP p_xp_SET_2DCHARPOS_21_40_24();
  901. extern LP p_xp_SET_2DBUFFER_2DPTR_21_40_24();
  902. extern LP p_xp_SET_2DBUFFER_2DOFFSET_21_40_24();
  903. extern LP p_xp_SET_2DQUEUE_21_40_24();
  904. extern LP p_xp_SET_2DQLEFT_21_40_24();
  905. extern LP p_xp_SET_2DQRIGHT_21_40_24();
  906. extern LP p_xp_SET_2DPREFIX_21_40_24();
  907. extern LP p_xp_SET_2DPREFIX_2DSTACK_21_40_24();
  908. extern LP p_xp_SET_2DPREFIX_2DSTACK_2DPTR_21_40_24();
  909. extern LP p_xp_SET_2DSUFFIX_21_40_24();
  910. extern LP p_xp_COPY_2DXP_2DSTRUCTURE();
  911. extern LP m_xp_LP_3C_2DBP();
  912. extern LP p_xp_LP_3C_2DBP_2Danon7071();
  913. extern SYMBOL s_xp_BUFFER_2DPTR; 
  914. extern SYMBOL s_xp_CHARPOS; 
  915. extern SYMBOL s_lsp__2B; 
  916. extern LP m_xp_TP_3C_2DBP();
  917. extern SYMBOL s_xp_BUFFER_2DOFFSET; 
  918. extern LP m_xp_BP_3C_2DLP();
  919. extern SYMBOL s_lsp__2D; 
  920. extern LP m_xp_BP_3C_2DTP();
  921. extern LP m_xp_LP_3C_2DTP();
  922. extern SYMBOL s_xp_BP_3C_2DTP; 
  923. extern SYMBOL s_xp_LP_3C_2DBP; 
  924. extern LP m_xp_CHECK_2DSIZE();
  925. extern SYMBOL s_lsp_STRING; 
  926. MAKE_SIMPLE_STRING(k72,9,"-MIN-SIZE");
  927. extern SYMBOL s_lsp_CONCATENATE; 
  928. extern SYMBOL s_lsp_COERCE_2DTO_2DPACKAGE; 
  929. extern SYMBOL s_lsp_INTERN_2F2; 
  930. MAKE_SIMPLE_STRING(k73,11,"-ENTRY-SIZE");
  931. extern SYMBOL s_lsp__3E; 
  932. extern SYMBOL s_lsp_LET_2A; 
  933. extern SYMBOL s_xp_OLD; 
  934. extern SYMBOL s_lsp_MAKE_2DARRAY; 
  935. extern SYMBOL s_key_ELEMENT_2DTYPE; 
  936. extern SYMBOL s_lsp_ARRAY_2DELEMENT_2DTYPE; 
  937. MAKE_CONS(k77,LREF(s_xp_OLD),LREF(s_lsp_NIL));
  938. MAKE_CONS(k76,LREF(s_lsp_ARRAY_2DELEMENT_2DTYPE),LREF(k77));
  939. MAKE_CONS(k75,LREF(k76),LREF(s_lsp_NIL));
  940. MAKE_CONS(k74,LREF(s_key_ELEMENT_2DTYPE),LREF(k75));
  941. extern SYMBOL s_xp_NEW; 
  942. extern SYMBOL s_lsp_REPLACE; 
  943. MAKE_CONS(k79,LREF(s_xp_NEW),LREF(k77));
  944. MAKE_CONS(k78,LREF(s_lsp_REPLACE),LREF(k79));
  945. extern SYMBOL s_lsp_SETF; 
  946. MAKE_CONS(k80,LREF(s_xp_NEW),LREF(s_lsp_NIL));
  947. extern SYMBOL s_lsp_LIST; 
  948. extern SYMBOL s_lsp_WHEN; 
  949. extern LP m_xp_SECTION_2DSTART();
  950. extern SYMBOL s_xp_BLOCK_2DSTACK; 
  951. extern SYMBOL s_xp_BLOCK_2DSTACK_2DPTR; 
  952. extern SYMBOL s_lsp_AREF; 
  953. extern LP p_xp_PUSH_2DBLOCK_2DSTACK();
  954. extern SYMBOL s_lsp_REPLACE_2F6; 
  955. extern LP p_xp_POP_2DBLOCK_2DSTACK();
  956. extern LP m_xp_PREFIX_2DPTR();
  957. extern SYMBOL s_xp_PREFIX_2DSTACK; 
  958. extern SYMBOL s_xp_PREFIX_2DSTACK_2DPTR; 
  959. extern LP m_xp_SUFFIX_2DPTR();
  960. MAKE_CONS(k81,(LP) 2,LREF(s_lsp_NIL));
  961. extern LP m_xp_NON_2DBLANK_2DPREFIX_2DPTR();
  962. MAKE_CONS(k82,(LP) 4,LREF(s_lsp_NIL));
  963. extern LP m_xp_INITIAL_2DPREFIX_2DPTR();
  964. MAKE_CONS(k83,(LP) 6,LREF(s_lsp_NIL));
  965. extern LP m_xp_SECTION_2DSTART_2DLINE();
  966. MAKE_CONS(k84,(LP) 8,LREF(s_lsp_NIL));
  967. extern LP p_xp_PUSH_2DPREFIX_2DSTACK();
  968. extern LP p_xp_POP_2DPREFIX_2DSTACK();
  969. extern LP m_xp_QTYPE();
  970. extern SYMBOL s_xp_QUEUE; 
  971. extern LP m_xp_QKIND();
  972. extern SYMBOL s_lsp_1_2B; 
  973. extern LP m_xp_QPOS();
  974. extern LP m_xp_QDEPTH();
  975. extern LP m_xp_QEND();
  976. extern LP m_xp_QOFFSET();
  977. MAKE_CONS(k85,(LP) 10,LREF(s_lsp_NIL));
  978. extern LP m_xp_QARG();
  979. MAKE_CONS(k86,(LP) 12,LREF(s_lsp_NIL));
  980. extern LP p_xp_ENQUEUE();
  981. extern LP m_xp_QNEXT();
  982. MAKE_CONS(k87,(LP) 14,LREF(s_lsp_NIL));
  983. extern LP p_xp_DESCRIBE_2DXP();
  984. MAKE_SIMPLE_STRING(k88,12,"#<XP stream ");
  985. extern SYMBOL s_lsp_FORMAT; 
  986. MAKE_SIMPLE_STRING(k89,16,"outputting to ~S");
  987. MAKE_SIMPLE_STRING(k90,20,"not currently in use");
  988. MAKE_SIMPLE_STRING(k91,12,"~&buffer= ~S");
  989. extern SYMBOL s_lsp_SUBSEQ_2D1; 
  990. extern SYMBOL s_xp__2ADESCRIBE_2DXP_2DSTREAMS_2DFULLY_2A; 
  991. MAKE_SIMPLE_STRING(k92,4," ...");
  992. extern SYMBOL s_lsp_PRINC; 
  993. MAKE_SIMPLE_STRING(k93,51,"~&   pos   _123456789_123456789_123456789_123456789");
  994. MAKE_SIMPLE_STRING(k94,58,"~&depth-in-blocks= ~D linel= ~D line-no= ~D line-limit= ~D");
  995. MAKE_SIMPLE_STRING(k95,37,"~&char-mode= ~S char-mode-counter= ~D");
  996. MAKE_SIMPLE_STRING(k96,15,"~§ion-start");
  997. MAKE_SIMPLE_STRING(k97,3," ~D");
  998. extern SYMBOL s_xp_POP_2DBLOCK_2DSTACK; 
  999. MAKE_SIMPLE_STRING(k98,56,"~&linel= ~D charpos= ~D buffer-ptr= ~D buffer-offset= ~D");
  1000. MAKE_SIMPLE_STRING(k99,12,"~&prefix= ~S");
  1001. MAKE_SIMPLE_STRING(k100,12,"~&suffix= ~S");
  1002. MAKE_SIMPLE_STRING(k101,58,"~&ptr type         kind           pos depth end offset arg");
  1003. MAKE_SIMPLE_STRING(k102,27,"~&~4A~13A~15A~4A~6A~4A~7A~A");
  1004. extern SYMBOL s_key_NEWLINE; 
  1005. extern SYMBOL s_key_IND; 
  1006. MAKE_CONS(k104,LREF(s_key_IND),LREF(s_lsp_NIL));
  1007. MAKE_CONS(k103,LREF(s_key_NEWLINE),LREF(k104));
  1008. MAKE_SIMPLE_STRING(k105,0,"");
  1009. extern SYMBOL s_key_START_2DBLOCK; 
  1010. MAKE_CONS(k107,LREF(s_key_START_2DBLOCK),LREF(s_lsp_NIL));
  1011. MAKE_CONS(k106,LREF(s_key_NEWLINE),LREF(k107));
  1012. extern SYMBOL s_key_END_2DBLOCK; 
  1013. MAKE_CONS(k110,LREF(s_key_END_2DBLOCK),LREF(s_lsp_NIL));
  1014. MAKE_CONS(k109,LREF(s_key_START_2DBLOCK),LREF(k110));
  1015. MAKE_CONS(k108,LREF(s_key_IND),LREF(k109));
  1016. MAKE_SIMPLE_STRING(k111,63,"~&initial-prefix-ptr prefix-ptr suffix-ptr non-blank start-line");
  1017. MAKE_SIMPLE_STRING(k112,21,"~& ~19A~11A~11A~10A~A");
  1018. extern SYMBOL s_xp_POP_2DPREFIX_2DSTACK; 
  1019. MAKE_SIMPLE_STRING(k113,1,">");
  1020. extern LP p_xp_GET_2DPRETTY_2DPRINT_2DSTREAM();
  1021. extern SYMBOL s_xp__2AFREE_2DXPS_2A; 
  1022. extern SYMBOL s_xp_INITIALIZE_2DXP; 
  1023. extern LP p_xp_FREE_2DPRETTY_2DPRINT_2DSTREAM();
  1024. extern LP p_xp_INITIALIZE_2DXP();
  1025. extern SYMBOL s_xp__2APRINT_2DRIGHT_2DMARGIN_2A; 
  1026. extern SYMBOL s_xp_OUTPUT_2DWIDTH; 
  1027. extern SYMBOL s_xp__2ADEFAULT_2DRIGHT_2DMARGIN_2A; 
  1028. extern SYMBOL s_xp__2APRINT_2DLINES_2A; 
  1029. extern SYMBOL s_xp_OUTPUT_2DPOSITION; 
  1030. extern LP p_xp_PUSH_2DCHAR_2DMODE();
  1031. extern LP p_xp_POP_2DCHAR_2DMODE();
  1032. extern LP p_xp_HANDLE_2DCHAR_2DMODE();
  1033. extern SYMBOL s_key_CAP0; 
  1034. extern SYMBOL s_lsp_ALPHANUMERICP; 
  1035. extern SYMBOL s_key_DOWN; 
  1036. extern SYMBOL s_lsp_CHAR_2DUPCASE; 
  1037. extern SYMBOL s_key_CAP1; 
  1038. extern SYMBOL s_key_CAPW; 
  1039. extern SYMBOL s_lsp_CHAR_2DDOWNCASE; 
  1040. extern SYMBOL s_key_UP; 
  1041. extern LP p_xp_WRITE_2DCHAR_2B();
  1042. extern SYMBOL s_key_UNCONDITIONAL; 
  1043. extern SYMBOL s_xp_PPRINT_2DNEWLINE_2B; 
  1044. extern SYMBOL s_xp_WRITE_2DCHAR_2B_2B; 
  1045. extern LP p_xp_WRITE_2DSTRING_2B();
  1046. extern SYMBOL s_lsp_CHAR_3D; 
  1047. extern SYMBOL s_key_START; 
  1048. extern SYMBOL s_key_END; 
  1049. extern SYMBOL s_lsp_POSITION; 
  1050. extern SYMBOL s_xp_WRITE_2DSTRING_2B_2B; 
  1051. extern LP p_xp_WRITE_2DCHAR_2B_2B();
  1052. extern SYMBOL s_xp_FORCE_2DSOME_2DOUTPUT; 
  1053. extern SYMBOL s_xp_HANDLE_2DCHAR_2DMODE; 
  1054. extern LP p_xp_FORCE_2DSOME_2DOUTPUT();
  1055. extern SYMBOL s_xp_ATTEMPT_2DTO_2DOUTPUT; 
  1056. extern LP p_xp_WRITE_2DSTRING_2B_2B();
  1057. extern SYMBOL s_xp_WRITE_2DSTRING_2B_2B_2B; 
  1058. extern LP p_xp_WRITE_2DSTRING_2B_2B_2B();
  1059. extern SYMBOL s_lsp_CHAR; 
  1060. extern LP p_xp_PPRINT_2DTAB_2B();
  1061. extern SYMBOL s_key_SECTION; 
  1062. extern SYMBOL s_key_LINE_2DRELATIVE; 
  1063. extern SYMBOL s_key_SECTION_2DRELATIVE; 
  1064. extern SYMBOL s_lsp_FLOOR_2F1V; 
  1065. extern SYMBOL s_lsp_FILL; 
  1066. extern LP p_xp_PPRINT_2DNEWLINE_2B();
  1067. extern SYMBOL s_xp_ENQUEUE; 
  1068. extern SYMBOL s_key_FRESH; 
  1069. MAKE_CONS(k115,LREF(s_key_UNCONDITIONAL),LREF(s_lsp_NIL));
  1070. MAKE_CONS(k114,LREF(s_key_FRESH),LREF(k115));
  1071. extern SYMBOL s_key_MANDATORY; 
  1072. MAKE_CONS(k118,LREF(s_key_MANDATORY),LREF(s_lsp_NIL));
  1073. MAKE_CONS(k117,LREF(s_key_UNCONDITIONAL),LREF(k118));
  1074. MAKE_CONS(k116,LREF(s_key_FRESH),LREF(k117));
  1075. extern LP p_xp_START_2DBLOCK();
  1076. extern SYMBOL s_xp_PUSH_2DBLOCK_2DSTACK; 
  1077. extern LP p_xp_END_2DBLOCK();
  1078. extern SYMBOL s_xp__2AABBREVIATION_2DHAPPENED_2A; 
  1079. extern SYMBOL s_xp_WRITE_2DSTRING_2B; 
  1080. extern LP p_xp_PPRINT_2DINDENT_2B();
  1081. extern LP m_xp_MAYBE_2DTOO_2DLARGE();
  1082. extern SYMBOL s_xp_LINEL; 
  1083. extern SYMBOL s_xp_LIMIT; 
  1084. extern SYMBOL s_xp_LINE_2DLIMIT; 
  1085. extern SYMBOL s_xp_LINE_2DNO; 
  1086. extern SYMBOL s_lsp_DECF; 
  1087. MAKE_CONS(k120,LREF(s_xp_LIMIT),LREF(k82));
  1088. MAKE_CONS(k119,LREF(s_lsp_DECF),LREF(k120));
  1089. extern SYMBOL s_lsp_MINUSP; 
  1090. extern SYMBOL s_xp_SUFFIX_2DPTR; 
  1091. extern SYMBOL s_lsp_COND; 
  1092. extern SYMBOL s_xp_QEND; 
  1093. extern SYMBOL s_xp_QPOS; 
  1094. extern SYMBOL s_xp_LP_3C_2DTP; 
  1095. MAKE_CONS(k121,LREF(s_xp_LIMIT),LREF(s_lsp_NIL));
  1096. extern SYMBOL s_xp_FORCE_2DNEWLINES_3F; 
  1097. MAKE_CONS(k122,LREF(s_lsp_T),LREF(s_lsp_NIL));
  1098. extern SYMBOL s_lsp_RETURN; 
  1099. MAKE_CONS(k127,LREF(s_lsp_NIL),LREF(s_lsp_NIL));
  1100. MAKE_CONS(k126,LREF(s_lsp_RETURN),LREF(k127));
  1101. MAKE_CONS(k125,LREF(k126),LREF(s_lsp_NIL));
  1102. MAKE_CONS(k124,LREF(s_lsp_T),LREF(k125));
  1103. MAKE_CONS(k123,LREF(k124),LREF(s_lsp_NIL));
  1104. extern LP m_xp_MISERING_3F();
  1105. extern SYMBOL s_lsp__3C_3D; 
  1106. extern SYMBOL s_xp_INITIAL_2DPREFIX_2DPTR; 
  1107. extern SYMBOL s_xp__2APRINT_2DMISER_2DWIDTH_2A; 
  1108. MAKE_CONS(k128,LREF(s_xp__2APRINT_2DMISER_2DWIDTH_2A),LREF(s_lsp_NIL));
  1109. extern LP p_xp_ATTEMPT_2DTO_2DOUTPUT();
  1110. extern SYMBOL s_key_BLOCK; 
  1111. extern SYMBOL s_xp_SET_2DINDENTATION_2DPREFIX; 
  1112. extern SYMBOL s_xp_PUSH_2DPREFIX_2DSTACK; 
  1113. extern SYMBOL s_xp_SET_2DPREFIX; 
  1114. extern SYMBOL s_xp_SET_2DSUFFIX; 
  1115. extern SYMBOL s_key_MISER; 
  1116. extern SYMBOL s_key_FILL; 
  1117. extern SYMBOL s_xp_OUTPUT_2DLINE; 
  1118. extern SYMBOL s_xp_SETUP_2DFOR_2DNEXT_2DLINE; 
  1119. extern SYMBOL s_xp_FLUSH; 
  1120. extern LP p_xp_FLUSH();
  1121. extern SYMBOL s_xp__2ALOCATING_2DCIRCULARITIES_2A; 
  1122. extern SYMBOL s_lsp_WRITE_2DSTRING_2F4; 
  1123. extern LP p_xp_OUTPUT_2DLINE();
  1124. extern SYMBOL s_key_TEST_2DNOT; 
  1125. extern SYMBOL s_key_FROM_2DEND; 
  1126. MAKE_SIMPLE_STRING(k130,3," ..");
  1127. extern SYMBOL s_xp_REVERSE_2DSTRING_2DIN_2DPLACE; 
  1128. extern SYMBOL s_xp_LINE_2DLIMIT_2DABBREVIATION_2DEXIT; 
  1129. extern SYMBOL s_lsp_WRITE_2DLINE_2F4; 
  1130. extern LP p_xp_SETUP_2DFOR_2DNEXT_2DLINE();
  1131. MAKE_CONS(k132,LREF(s_key_FRESH),LREF(s_lsp_NIL));
  1132. MAKE_CONS(k131,LREF(s_key_UNCONDITIONAL),LREF(k132));
  1133. extern LP p_xp_SET_2DINDENTATION_2DPREFIX();
  1134. extern LP p_xp_SET_2DPREFIX();
  1135. extern LP p_xp_SET_2DSUFFIX();
  1136. extern LP p_xp_REVERSE_2DSTRING_2DIN_2DPLACE();
  1137. extern LP p_xp_GLOBALS_5FINIT9();
  1138. extern SYMBOL s_xp_WRITE; 
  1139. extern SYMBOL s_xp_PRINT; 
  1140. extern SYMBOL s_xp_PRIN1; 
  1141. extern SYMBOL s_xp_PRINC; 
  1142. extern SYMBOL s_xp_PPRINT; 
  1143. extern SYMBOL s_xp_FORMAT; 
  1144. extern SYMBOL s_xp_WRITE_2DTO_2DSTRING; 
  1145. extern SYMBOL s_xp_PRINC_2DTO_2DSTRING; 
  1146. extern SYMBOL s_xp_PRIN1_2DTO_2DSTRING; 
  1147. extern SYMBOL s_xp_WRITE_2DLINE; 
  1148. extern SYMBOL s_xp_WRITE_2DSTRING; 
  1149. extern SYMBOL s_xp_WRITE_2DCHAR; 
  1150. extern SYMBOL s_xp_TERPRI; 
  1151. extern SYMBOL s_xp_FRESH_2DLINE; 
  1152. extern SYMBOL s_xp_DEFSTRUCT; 
  1153. extern SYMBOL s_xp_FINISH_2DOUTPUT; 
  1154. extern SYMBOL s_xp_FORCE_2DOUTPUT; 
  1155. extern SYMBOL s_xp_CLEAR_2DOUTPUT; 
  1156. MAKE_CONS(k152,LREF(s_xp_CLEAR_2DOUTPUT),LREF(s_lsp_NIL));
  1157. MAKE_CONS(k151,LREF(s_xp_FORCE_2DOUTPUT),LREF(k152));
  1158. MAKE_CONS(k150,LREF(s_xp_FINISH_2DOUTPUT),LREF(k151));
  1159. MAKE_CONS(k149,LREF(s_xp_DEFSTRUCT),LREF(k150));
  1160. MAKE_CONS(k148,LREF(s_xp_FRESH_2DLINE),LREF(k149));
  1161. MAKE_CONS(k147,LREF(s_xp_TERPRI),LREF(k148));
  1162. MAKE_CONS(k146,LREF(s_xp_WRITE_2DCHAR),LREF(k147));
  1163. MAKE_CONS(k145,LREF(s_xp_WRITE_2DSTRING),LREF(k146));
  1164. MAKE_CONS(k144,LREF(s_xp_WRITE_2DLINE),LREF(k145));
  1165. MAKE_CONS(k143,LREF(s_xp_PRIN1_2DTO_2DSTRING),LREF(k144));
  1166. MAKE_CONS(k142,LREF(s_xp_PRINC_2DTO_2DSTRING),LREF(k143));
  1167. MAKE_CONS(k141,LREF(s_xp_WRITE_2DTO_2DSTRING),LREF(k142));
  1168. MAKE_CONS(k140,LREF(s_xp_FORMAT),LREF(k141));
  1169. MAKE_CONS(k139,LREF(s_xp_PPRINT),LREF(k140));
  1170. MAKE_CONS(k138,LREF(s_xp_PRINC),LREF(k139));
  1171. MAKE_CONS(k137,LREF(s_xp_PRIN1),LREF(k138));
  1172. MAKE_CONS(k136,LREF(s_xp_PRINT),LREF(k137));
  1173. MAKE_CONS(k135,LREF(s_xp_WRITE),LREF(k136));
  1174. MAKE_SIMPLE_STRING(k153,35,"printing functions redefined by xp.");
  1175. extern SYMBOL s_key_VAR; 
  1176. extern SYMBOL s_lsp_DEFINE_2DVARIABLE; 
  1177. extern SYMBOL s_xp__2APRINT_2DSHARED_2A; 
  1178. MAKE_SIMPLE_STRING(k154,34,"controls pretty printing of output");
  1179. MAKE_SIMPLE_STRING(k155,43,"+#/nil the right margin for pretty printing");
  1180. MAKE_SIMPLE_STRING(k156,39,"+#/nil truncates printing after # lines");
  1181. extern SYMBOL s_xp__2ALAST_2DABBREVIATED_2DPRINTING_2A; 
  1182. extern LP p_xp_GLOBALS_5FINIT9_2Danon133134();
  1183. MAKE_PROCEDURE(k157,p_xp_GLOBALS_5FINIT9_2Danon133134);
  1184. MAKE_SIMPLE_STRING(k158,65,"funcalling this redoes the last xp printing that was abbreviated.");
  1185. MAKE_SIMPLE_STRING(k159,29,"initial print dispatch table.");
  1186. MAKE_SIMPLE_STRING(k160,54,"t if current thing being printed has been abbreviated.");
  1187. extern SYMBOL s_xp__2ARESULT_2A; 
  1188. MAKE_SIMPLE_STRING(k161,25,"used to pass back a value");
  1189. static struct {unsigned long header; char string[112+1];}
  1190. k162  = {((112 << 8) + TYPE_SIMPLE_STRING), 
  1191. "Integer if making a first pass over things to identify circularities.\n   Integer used as counter for #n= syntax."};
  1192. extern SYMBOL s_xp__2APARENTS_2A; 
  1193. MAKE_SIMPLE_STRING(k163,31,"used when *print-shared* is nil");
  1194. extern SYMBOL s_xp__2ACIRCULARITY_2DHASH_2DTABLE_2A; 
  1195. MAKE_SIMPLE_STRING(k164,64,"Contains hash table used for locating circularities, or a stack.");
  1196. MAKE_SIMPLE_STRING(k165,36,"free list of circularity hash tables");
  1197. extern SYMBOL s_xp_ALWAYS_2DTRUE; 
  1198. MAKE_CONS(k168,LREF(s_xp_ALWAYS_2DTRUE),LREF(s_lsp_NIL));
  1199. MAKE_CONS(k167,LREF(s_lsp_T),LREF(k168));
  1200. MAKE_CONS(k171,LREF(s_lsp_CONSP),LREF(s_lsp_NIL));
  1201. MAKE_CONS(k170,LREF(s_lsp_CONS),LREF(k171));
  1202. extern SYMBOL s_xp_SIMPLE_2DATOM; 
  1203. extern SYMBOL s_xp_SIMPLE_2DATOM_2DP; 
  1204. MAKE_CONS(k174,LREF(s_xp_SIMPLE_2DATOM_2DP),LREF(s_lsp_NIL));
  1205. MAKE_CONS(k173,LREF(s_xp_SIMPLE_2DATOM),LREF(k174));
  1206. extern SYMBOL s_xp_OTHERP; 
  1207. MAKE_CONS(k177,LREF(s_xp_OTHERP),LREF(s_lsp_NIL));
  1208. MAKE_CONS(k176,LREF(s_xp_OTHER),LREF(k177));
  1209. extern SYMBOL s_lsp_NULL; 
  1210. MAKE_CONS(k180,LREF(s_lsp_NULL),LREF(s_lsp_NIL));
  1211. MAKE_CONS(k179,LREF(s_lsp_NULL),LREF(k180));
  1212. extern SYMBOL s_lsp_SYMBOL; 
  1213. extern SYMBOL s_lsp_SYMBOLP; 
  1214. MAKE_CONS(k183,LREF(s_lsp_SYMBOLP),LREF(s_lsp_NIL));
  1215. MAKE_CONS(k182,LREF(s_lsp_SYMBOL),LREF(k183));
  1216. extern SYMBOL s_lsp_ATOM; 
  1217. MAKE_CONS(k186,LREF(s_lsp_ATOM),LREF(s_lsp_NIL));
  1218. MAKE_CONS(k185,LREF(s_lsp_ATOM),LREF(k186));
  1219. extern SYMBOL s_lsp_LISTP; 
  1220. MAKE_CONS(k190,LREF(s_lsp_LISTP),LREF(s_lsp_NIL));
  1221. MAKE_CONS(k189,LREF(s_lsp_LIST),LREF(k190));
  1222. extern SYMBOL s_lsp_NUMBER; 
  1223. extern SYMBOL s_lsp_NUMBERP; 
  1224. MAKE_CONS(k193,LREF(s_lsp_NUMBERP),LREF(s_lsp_NIL));
  1225. MAKE_CONS(k192,LREF(s_lsp_NUMBER),LREF(k193));
  1226. extern SYMBOL s_lsp_INTEGER; 
  1227. extern SYMBOL s_lsp_INTEGERP; 
  1228. MAKE_CONS(k196,LREF(s_lsp_INTEGERP),LREF(s_lsp_NIL));
  1229. MAKE_CONS(k195,LREF(s_lsp_INTEGER),LREF(k196));
  1230. extern SYMBOL s_lsp_RATIONAL; 
  1231. extern SYMBOL s_lsp_RATIONALP; 
  1232. MAKE_CONS(k199,LREF(s_lsp_RATIONALP),LREF(s_lsp_NIL));
  1233. MAKE_CONS(k198,LREF(s_lsp_RATIONAL),LREF(k199));
  1234. extern SYMBOL s_lsp_FLOAT; 
  1235. extern SYMBOL s_lsp_FLOATP; 
  1236. MAKE_CONS(k202,LREF(s_lsp_FLOATP),LREF(s_lsp_NIL));
  1237. MAKE_CONS(k201,LREF(s_lsp_FLOAT),LREF(k202));
  1238. extern SYMBOL s_lsp_COMPLEX; 
  1239. extern SYMBOL s_lsp_COMPLEXP; 
  1240. MAKE_CONS(k205,LREF(s_lsp_COMPLEXP),LREF(s_lsp_NIL));
  1241. MAKE_CONS(k204,LREF(s_lsp_COMPLEX),LREF(k205));
  1242. extern SYMBOL s_lsp_CHARACTER; 
  1243. extern SYMBOL s_lsp_CHARACTERP; 
  1244. MAKE_CONS(k208,LREF(s_lsp_CHARACTERP),LREF(s_lsp_NIL));
  1245. MAKE_CONS(k207,LREF(s_lsp_CHARACTER),LREF(k208));
  1246. extern SYMBOL s_lsp_STRINGP; 
  1247. MAKE_CONS(k211,LREF(s_lsp_STRINGP),LREF(s_lsp_NIL));
  1248. MAKE_CONS(k210,LREF(s_lsp_STRING),LREF(k211));
  1249. extern SYMBOL s_lsp_BIT_2DVECTOR; 
  1250. extern SYMBOL s_lsp_BIT_2DVECTOR_2DP; 
  1251. MAKE_CONS(k214,LREF(s_lsp_BIT_2DVECTOR_2DP),LREF(s_lsp_NIL));
  1252. MAKE_CONS(k213,LREF(s_lsp_BIT_2DVECTOR),LREF(k214));
  1253. extern SYMBOL s_lsp_VECTOR; 
  1254. extern SYMBOL s_lsp_VECTORP; 
  1255. MAKE_CONS(k217,LREF(s_lsp_VECTORP),LREF(s_lsp_NIL));
  1256. MAKE_CONS(k216,LREF(s_lsp_VECTOR),LREF(k217));
  1257. extern SYMBOL s_lsp_SIMPLE_2DVECTOR; 
  1258. extern SYMBOL s_lsp_SIMPLE_2DVECTOR_2DP; 
  1259. MAKE_CONS(k220,LREF(s_lsp_SIMPLE_2DVECTOR_2DP),LREF(s_lsp_NIL));
  1260. MAKE_CONS(k219,LREF(s_lsp_SIMPLE_2DVECTOR),LREF(k220));
  1261. extern SYMBOL s_lsp_SIMPLE_2DSTRING; 
  1262. extern SYMBOL s_lsp_SIMPLE_2DSTRING_2DP; 
  1263. MAKE_CONS(k223,LREF(s_lsp_SIMPLE_2DSTRING_2DP),LREF(s_lsp_NIL));
  1264. MAKE_CONS(k222,LREF(s_lsp_SIMPLE_2DSTRING),LREF(k223));
  1265. extern SYMBOL s_lsp_SIMPLE_2DBIT_2DVECTOR; 
  1266. extern SYMBOL s_lsp_SIMPLE_2DBIT_2DVECTOR_2DP; 
  1267. MAKE_CONS(k226,LREF(s_lsp_SIMPLE_2DBIT_2DVECTOR_2DP),LREF(s_lsp_NIL));
  1268. MAKE_CONS(k225,LREF(s_lsp_SIMPLE_2DBIT_2DVECTOR),LREF(k226));
  1269. extern SYMBOL s_lsp_ARRAY; 
  1270. extern SYMBOL s_lsp_ARRAYP; 
  1271. MAKE_CONS(k229,LREF(s_lsp_ARRAYP),LREF(s_lsp_NIL));
  1272. MAKE_CONS(k228,LREF(s_lsp_ARRAY),LREF(k229));
  1273. extern SYMBOL s_lsp_PACKAGE; 
  1274. MAKE_CONS(k232,LREF(s_lsp_PACKAGEP),LREF(s_lsp_NIL));
  1275. MAKE_CONS(k231,LREF(s_lsp_PACKAGE),LREF(k232));
  1276. extern SYMBOL s_lsp_FUNCTIONP; 
  1277. MAKE_CONS(k235,LREF(s_lsp_FUNCTIONP),LREF(s_lsp_NIL));
  1278. MAKE_CONS(k234,LREF(s_lsp_FUNCTION),LREF(k235));
  1279. extern SYMBOL s_lsp_COMPILED_2DFUNCTION; 
  1280. extern SYMBOL s_lsp_COMPILED_2DFUNCTION_2DP; 
  1281. MAKE_CONS(k238,LREF(s_lsp_COMPILED_2DFUNCTION_2DP),LREF(s_lsp_NIL));
  1282. MAKE_CONS(k237,LREF(s_lsp_COMPILED_2DFUNCTION),LREF(k238));
  1283. extern SYMBOL s_lsp_COMMON; 
  1284. extern SYMBOL s_lsp_COMMONP; 
  1285. MAKE_CONS(k241,LREF(s_lsp_COMMONP),LREF(s_lsp_NIL));
  1286. MAKE_CONS(k240,LREF(s_lsp_COMMON),LREF(k241));
  1287. MAKE_CONS(k239,LREF(k240),LREF(s_lsp_NIL));
  1288. MAKE_CONS(k236,LREF(k237),LREF(k239));
  1289. MAKE_CONS(k233,LREF(k234),LREF(k236));
  1290. MAKE_CONS(k230,LREF(k231),LREF(k233));
  1291. MAKE_CONS(k227,LREF(k228),LREF(k230));
  1292. MAKE_CONS(k224,LREF(k225),LREF(k227));
  1293. MAKE_CONS(k221,LREF(k222),LREF(k224));
  1294. MAKE_CONS(k218,LREF(k219),LREF(k221));
  1295. MAKE_CONS(k215,LREF(k216),LREF(k218));
  1296. MAKE_CONS(k212,LREF(k213),LREF(k215));
  1297. MAKE_CONS(k209,LREF(k210),LREF(k212));
  1298. MAKE_CONS(k206,LREF(k207),LREF(k209));
  1299. MAKE_CONS(k203,LREF(k204),LREF(k206));
  1300. MAKE_CONS(k200,LREF(k201),LREF(k203));
  1301. MAKE_CONS(k197,LREF(k198),LREF(k200));
  1302. MAKE_CONS(k194,LREF(k195),LREF(k197));
  1303. MAKE_CONS(k191,LREF(k192),LREF(k194));
  1304. MAKE_CONS(k188,LREF(k189),LREF(k191));
  1305. MAKE_CONS(k187,LREF(k170),LREF(k188));
  1306. MAKE_CONS(k184,LREF(k185),LREF(k187));
  1307. MAKE_CONS(k181,LREF(k182),LREF(k184));
  1308. MAKE_CONS(k178,LREF(k179),LREF(k181));
  1309. MAKE_CONS(k175,LREF(k176),LREF(k178));
  1310. MAKE_CONS(k172,LREF(k173),LREF(k175));
  1311. MAKE_CONS(k169,LREF(k170),LREF(k172));
  1312. MAKE_CONS(k166,LREF(k167),LREF(k169));
  1313. MAKE_SIMPLE_STRING(k242,26,"Set to T to see more info.");
  1314. MAKE_SIMPLE_STRING(k243,30,"free list of XP stream objects");
  1315. extern SYMBOL s_xp__2AFORMAT_2DSTRING_2DCACHE_2A; 
  1316. extern SYMBOL s_xp__2AFN_2DTABLE_2A; 
  1317. MAKE_SIMPLE_STRING(k244,31,"used to access fns for commands");
  1318. extern SYMBOL s_xp__2ATESTING_2DERRORS_2A; 
  1319. MAKE_SIMPLE_STRING(k245,25,"Used only when testing XP");
  1320. extern SYMBOL s_lsp_STRUCT_2DINFO; 
  1321. extern SYMBOL s_lsp_STRUCT_2DSLOT; 
  1322. extern SYMBOL s_xp_CONSES_2DWITH_2DCARS; 
  1323. extern SYMBOL s_lsp_MAKE_2DHASH_2DTABLE; 
  1324. MAKE_CONS(k253,LREF(s_lsp_EQ),LREF(s_lsp_NIL));
  1325. MAKE_CONS(k252,LREF(s_lsp_FUNCTION),LREF(k253));
  1326. MAKE_CONS(k251,LREF(k252),LREF(s_lsp_NIL));
  1327. MAKE_CONS(k250,LREF(s_key_TEST),LREF(k251));
  1328. MAKE_CONS(k249,LREF(s_lsp_MAKE_2DHASH_2DTABLE),LREF(k250));
  1329. extern SYMBOL s_lsp_HASH_2DTABLE; 
  1330. static struct {unsigned long header; LP type;LP cells[5];} 
  1331. k248 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1332. {LREF(s_xp_CONSES_2DWITH_2DCARS),LREF(k249),LREF(s_lsp_HASH_2DTABLE),LREF(s_lsp_NIL)}};
  1333. extern SYMBOL s_xp_STRUCTURES; 
  1334. static struct {unsigned long header; LP type;LP cells[5];} 
  1335. k255 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1336. {LREF(s_xp_STRUCTURES),LREF(k249),LREF(s_lsp_HASH_2DTABLE),LREF(s_lsp_NIL)}};
  1337. extern SYMBOL s_xp_OTHERS; 
  1338. static struct {unsigned long header; LP type;LP cells[5];} 
  1339. k257 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1340. {LREF(s_xp_OTHERS),LREF(s_lsp_NIL),LREF(s_lsp_LIST),LREF(s_lsp_NIL)}};
  1341. MAKE_CONS(k256,LREF(k257),LREF(s_lsp_NIL));
  1342. MAKE_CONS(k254,LREF(k255),LREF(k256));
  1343. MAKE_CONS(k247,LREF(k248),LREF(k254));
  1344. extern SYMBOL s_xp_MAKE_2DPPRINT_2DDISPATCH; 
  1345. extern SYMBOL s_lsp_DEFAULT_2DWRITE_2DSTRUCTURE; 
  1346. extern SYMBOL s_lsp_STRUCTURE; 
  1347. extern SYMBOL s_key_DEFAULT; 
  1348. static struct {unsigned long header; LP type;LP cells[21];} 
  1349. k246 = {((21 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DINFO),
  1350. {LREF(s_xp_PPRINT_2DDISPATCH),LREF(s_lsp_NIL),LREF(k247),(LP) 8,LREF(k105),LREF(s_xp_PPRINT_2DDISPATCH_2DP),LREF(s_lsp_NIL),LREF(s_xp_MAKE_2DPPRINT_2DDISPATCH),LREF(s_lsp_NIL),LREF(s_lsp_DEFAULT_2DWRITE_2DSTRUCTURE),LREF(s_lsp_STRUCTURE),LREF(s_lsp_T),(LP) 0,(LP) 2,LREF(s_key_DEFAULT),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL)}};
  1351. extern SYMBOL s_lsp_DEFINE_2DSTRUCTURE; 
  1352. extern SYMBOL s_xp_TEST; 
  1353. static struct {unsigned long header; LP type;LP cells[5];} 
  1354. k260 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1355. {LREF(s_xp_TEST),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1356. extern SYMBOL s_xp_FN; 
  1357. static struct {unsigned long header; LP type;LP cells[5];} 
  1358. k262 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1359. {LREF(s_xp_FN),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1360. extern SYMBOL s_xp_FULL_2DSPEC; 
  1361. static struct {unsigned long header; LP type;LP cells[5];} 
  1362. k264 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1363. {LREF(s_xp_FULL_2DSPEC),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1364. MAKE_CONS(k263,LREF(k264),LREF(s_lsp_NIL));
  1365. MAKE_CONS(k261,LREF(k262),LREF(k263));
  1366. MAKE_CONS(k259,LREF(k260),LREF(k261));
  1367. extern SYMBOL s_xp_MAKE_2DENTRY; 
  1368. static struct {unsigned long header; LP type;LP cells[21];} 
  1369. k258 = {((21 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DINFO),
  1370. {LREF(s_xp_ENTRY),LREF(s_lsp_NIL),LREF(k259),(LP) 8,LREF(k105),LREF(s_xp_ENTRY_2DP),LREF(s_lsp_NIL),LREF(s_xp_MAKE_2DENTRY),LREF(s_xp_COPY_2DENTRY),LREF(s_lsp_DEFAULT_2DWRITE_2DSTRUCTURE),LREF(s_lsp_STRUCTURE),LREF(s_lsp_T),(LP) 0,(LP) 2,LREF(s_key_DEFAULT),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL)}};
  1371. extern SYMBOL s_xp_BASE_2DSTREAM; 
  1372. static struct {unsigned long header; LP type;LP cells[5];} 
  1373. k267 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1374. {LREF(s_xp_BASE_2DSTREAM),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1375. static struct {unsigned long header; LP type;LP cells[5];} 
  1376. k269 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1377. {LREF(s_xp_LINEL),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1378. static struct {unsigned long header; LP type;LP cells[5];} 
  1379. k271 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1380. {LREF(s_xp_LINE_2DLIMIT),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1381. static struct {unsigned long header; LP type;LP cells[5];} 
  1382. k273 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1383. {LREF(s_xp_LINE_2DNO),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1384. extern SYMBOL s_xp_CHAR_2DMODE; 
  1385. static struct {unsigned long header; LP type;LP cells[5];} 
  1386. k275 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1387. {LREF(s_xp_CHAR_2DMODE),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1388. extern SYMBOL s_xp_CHAR_2DMODE_2DCOUNTER; 
  1389. static struct {unsigned long header; LP type;LP cells[5];} 
  1390. k277 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1391. {LREF(s_xp_CHAR_2DMODE_2DCOUNTER),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1392. extern SYMBOL s_xp_DEPTH_2DIN_2DBLOCKS; 
  1393. static struct {unsigned long header; LP type;LP cells[5];} 
  1394. k279 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1395. {LREF(s_xp_DEPTH_2DIN_2DBLOCKS),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1396. MAKE_CONS(k283,(LP) 70,LREF(s_lsp_NIL));
  1397. MAKE_CONS(k282,LREF(s_lsp_MAKE_2DARRAY),LREF(k283));
  1398. static struct {unsigned long header; LP type;LP cells[5];} 
  1399. k281 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1400. {LREF(s_xp_BLOCK_2DSTACK),LREF(k282),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1401. static struct {unsigned long header; LP type;LP cells[5];} 
  1402. k285 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1403. {LREF(s_xp_BLOCK_2DSTACK_2DPTR),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1404. extern SYMBOL s_xp_BUFFER; 
  1405. extern SYMBOL s_lsp_STRING_2DCHAR; 
  1406. MAKE_CONS(k293,LREF(s_lsp_STRING_2DCHAR),LREF(s_lsp_NIL));
  1407. MAKE_CONS(k292,LREF(s_lsp_QUOTE),LREF(k293));
  1408. MAKE_CONS(k291,LREF(k292),LREF(s_lsp_NIL));
  1409. MAKE_CONS(k290,LREF(s_key_ELEMENT_2DTYPE),LREF(k291));
  1410. MAKE_CONS(k289,(LP) 512,LREF(k290));
  1411. MAKE_CONS(k288,LREF(s_lsp_MAKE_2DARRAY),LREF(k289));
  1412. static struct {unsigned long header; LP type;LP cells[5];} 
  1413. k287 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1414. {LREF(s_xp_BUFFER),LREF(k288),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1415. static struct {unsigned long header; LP type;LP cells[5];} 
  1416. k295 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1417. {LREF(s_xp_CHARPOS),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1418. static struct {unsigned long header; LP type;LP cells[5];} 
  1419. k297 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1420. {LREF(s_xp_BUFFER_2DPTR),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1421. static struct {unsigned long header; LP type;LP cells[5];} 
  1422. k299 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1423. {LREF(s_xp_BUFFER_2DOFFSET),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1424. MAKE_CONS(k303,(LP) 1050,LREF(s_lsp_NIL));
  1425. MAKE_CONS(k302,LREF(s_lsp_MAKE_2DARRAY),LREF(k303));
  1426. static struct {unsigned long header; LP type;LP cells[5];} 
  1427. k301 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1428. {LREF(s_xp_QUEUE),LREF(k302),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1429. extern SYMBOL s_xp_QLEFT; 
  1430. static struct {unsigned long header; LP type;LP cells[5];} 
  1431. k305 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1432. {LREF(s_xp_QLEFT),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1433. extern SYMBOL s_xp_QRIGHT; 
  1434. static struct {unsigned long header; LP type;LP cells[5];} 
  1435. k307 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1436. {LREF(s_xp_QRIGHT),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1437. extern SYMBOL s_xp_PREFIX; 
  1438. static struct {unsigned long header; LP type;LP cells[5];} 
  1439. k309 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1440. {LREF(s_xp_PREFIX),LREF(k288),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1441. MAKE_CONS(k313,(LP) 300,LREF(s_lsp_NIL));
  1442. MAKE_CONS(k312,LREF(s_lsp_MAKE_2DARRAY),LREF(k313));
  1443. static struct {unsigned long header; LP type;LP cells[5];} 
  1444. k311 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1445. {LREF(s_xp_PREFIX_2DSTACK),LREF(k312),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1446. static struct {unsigned long header; LP type;LP cells[5];} 
  1447. k315 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1448. {LREF(s_xp_PREFIX_2DSTACK_2DPTR),LREF(s_lsp_NIL),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1449. extern SYMBOL s_xp_SUFFIX; 
  1450. static struct {unsigned long header; LP type;LP cells[5];} 
  1451. k317 = {((5 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DSLOT),
  1452. {LREF(s_xp_SUFFIX),LREF(k288),LREF(s_lsp_T),LREF(s_lsp_NIL)}};
  1453. MAKE_CONS(k316,LREF(k317),LREF(s_lsp_NIL));
  1454. MAKE_CONS(k314,LREF(k315),LREF(k316));
  1455. MAKE_CONS(k310,LREF(k311),LREF(k314));
  1456. MAKE_CONS(k308,LREF(k309),LREF(k310));
  1457. MAKE_CONS(k306,LREF(k307),LREF(k308));
  1458. MAKE_CONS(k304,LREF(k305),LREF(k306));
  1459. MAKE_CONS(k300,LREF(k301),LREF(k304));
  1460. MAKE_CONS(k298,LREF(k299),LREF(k300));
  1461. MAKE_CONS(k296,LREF(k297),LREF(k298));
  1462. MAKE_CONS(k294,LREF(k295),LREF(k296));
  1463. MAKE_CONS(k286,LREF(k287),LREF(k294));
  1464. MAKE_CONS(k284,LREF(k285),LREF(k286));
  1465. MAKE_CONS(k280,LREF(k281),LREF(k284));
  1466. MAKE_CONS(k278,LREF(k279),LREF(k280));
  1467. MAKE_CONS(k276,LREF(k277),LREF(k278));
  1468. MAKE_CONS(k274,LREF(k275),LREF(k276));
  1469. MAKE_CONS(k272,LREF(k273),LREF(k274));
  1470. MAKE_CONS(k270,LREF(k271),LREF(k272));
  1471. MAKE_CONS(k268,LREF(k269),LREF(k270));
  1472. MAKE_CONS(k266,LREF(k267),LREF(k268));
  1473. extern SYMBOL s_xp_MAKE_2DXP_2DSTRUCTURE; 
  1474. extern SYMBOL s_xp_COPY_2DXP_2DSTRUCTURE; 
  1475. extern SYMBOL s_xp_DESCRIBE_2DXP; 
  1476. static struct {unsigned long header; LP type;LP cells[21];} 
  1477. k265 = {((21 << 8) + TYPE_STRUCTURE), LREF(s_lsp_STRUCT_2DINFO),
  1478. {LREF(s_xp_XP_2DSTRUCTURE),LREF(s_lsp_NIL),LREF(k266),(LP) 42,LREF(k105),LREF(s_xp_XP_2DSTRUCTURE_2DP),LREF(s_lsp_NIL),LREF(s_xp_MAKE_2DXP_2DSTRUCTURE),LREF(s_xp_COPY_2DXP_2DSTRUCTURE),LREF(s_xp_DESCRIBE_2DXP),LREF(s_lsp_STRUCTURE),LREF(s_lsp_T),(LP) 0,(LP) 2,LREF(s_key_DEFAULT),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL),LREF(s_lsp_NIL)}};
  1479. extern SYMBOL s_lsp_DEFINE_2DMACRO; 
  1480. extern SYMBOL s_xp_TP_3C_2DBP; 
  1481. extern SYMBOL s_xp_BP_3C_2DLP; 
  1482. extern SYMBOL s_xp_CHECK_2DSIZE; 
  1483. extern SYMBOL s_xp_SECTION_2DSTART; 
  1484. extern SYMBOL s_xp_PREFIX_2DPTR; 
  1485. extern SYMBOL s_xp_NON_2DBLANK_2DPREFIX_2DPTR; 
  1486. extern SYMBOL s_xp_SECTION_2DSTART_2DLINE; 
  1487. extern SYMBOL s_xp_QTYPE; 
  1488. extern SYMBOL s_xp_QKIND; 
  1489. extern SYMBOL s_xp_QDEPTH; 
  1490. extern SYMBOL s_xp_QOFFSET; 
  1491. extern SYMBOL s_xp_QARG; 
  1492. extern SYMBOL s_xp_QNEXT; 
  1493. extern SYMBOL s_xp_MAYBE_2DTOO_2DLARGE; 
  1494. extern SYMBOL s_xp_MISERING_3F; 
  1495.  
  1496.  
  1497. extern LP leq_p();
  1498. extern LP num_equal_p();
  1499. extern LP divide();
  1500. extern LP set_vref();
  1501. extern LP vref();
  1502. extern LP lessp();
  1503. extern LP multiply();
  1504. extern LP subtract();
  1505. extern LP add();
  1506. extern LP greaterp();
  1507. extern LP c_eql();
  1508. extern LP c_cons();
  1509. extern LP alloc_words();
  1510.  
  1511.  
  1512. LP p_xp_MAKE_2DPPRINT_2DDISPATCH(va_alist) va_dcl
  1513. {
  1514. LP v_KEYS3_29; LP v_OTHERS_28; LP v_REHASH_2DTHRESHOLD_26; 
  1515. LP v_REHASH_2DSIZE_25; LP v_SIZE_24; LP v_TEST_23; 
  1516. LP v_X_21; LP v_REHASH_2DTHRESHOLD_20; LP v_REHASH_2DSIZE_19; 
  1517. LP v_SIZE_18; LP v_X_16; LP v_TEST_15; 
  1518. LP v_STRUCTURES_14; LP v_REHASH_2DTHRESHOLD_12; LP v_REHASH_2DSIZE_11; 
  1519. LP v_SIZE_10; LP v_TEST_9; LP v_X_7; 
  1520. LP v_REHASH_2DTHRESHOLD_6; LP v_REHASH_2DSIZE_5; LP v_SIZE_4; 
  1521. LP v_X_2; LP v_TEST_1; LP v_CONSES_2DWITH_2DCARS_0; 
  1522.  
  1523. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1524. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  1525. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  1526. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  1527. LP t24; 
  1528. DYNAMIC_REST_HOLDER(rest_conses);
  1529. int real_argc;
  1530. ARGC argc;
  1531. BEGIN_NON_ANSI_VAR_ARGS;
  1532. argc = (ARGC) NEXT_VAR_ARG;
  1533.  
  1534.  
  1535. real_argc = REAL_ARGC(argc);
  1536. if (real_argc < 0) wna_low(real_argc,0);
  1537. DYNAMIC_RESTIFY(v_KEYS3_29,1,NEXT_VAR_ARG);
  1538. BEGIN_KEY_INIT(v_CONSES_2DWITH_2DCARS_0,LREF(s_key_CONSES_2DWITH_2DCARS),v_KEYS3_29)
  1539. v_X_7 = LREF(s_lsp_EQ);
  1540. v_TEST_9 = ((LP) DEREF((v_X_7) + 4 * 4));
  1541. v_SIZE_10 = (LP) 130;
  1542. v_REHASH_2DSIZE_11 = LREF(k38);
  1543. v_REHASH_2DTHRESHOLD_12 = LREF(k39);
  1544. t0 = ICALL(s_lsp_MAKE_2DHASH_2DTABLE_2D1) (4, v_TEST_9, v_SIZE_10, v_REHASH_2DSIZE_11, v_REHASH_2DTHRESHOLD_12);
  1545. v_CONSES_2DWITH_2DCARS_0 = t0;
  1546. END_KEY_INIT
  1547. BEGIN_KEY_INIT(v_STRUCTURES_14,LREF(s_key_STRUCTURES),v_KEYS3_29)
  1548. v_X_21 = LREF(s_lsp_EQ);
  1549. v_TEST_23 = ((LP) DEREF((v_X_21) + 4 * 4));
  1550. v_SIZE_24 = (LP) 130;
  1551. v_REHASH_2DSIZE_25 = LREF(k38);
  1552. v_REHASH_2DTHRESHOLD_26 = LREF(k39);
  1553. t1 = ICALL(s_lsp_MAKE_2DHASH_2DTABLE_2D1) (4, v_TEST_23, v_SIZE_24, v_REHASH_2DSIZE_25, v_REHASH_2DTHRESHOLD_26);
  1554. v_STRUCTURES_14 = t1;
  1555. END_KEY_INIT
  1556. BEGIN_KEY_INIT(v_OTHERS_28,LREF(s_key_OTHERS),v_KEYS3_29)
  1557. v_OTHERS_28 = LREF(s_lsp_NIL);
  1558. END_KEY_INIT
  1559. END_VAR_ARGS;
  1560. t2 = ICALL(s_xp_MAKE_2DPPRINT_2DDISPATCH_2F3) (MV_CALL(argc,3), v_CONSES_2DWITH_2DCARS_0, v_STRUCTURES_14, v_OTHERS_28);
  1561. return(t2);
  1562. }
  1563.  
  1564. LP p_xp_MAKE_2DPPRINT_2DDISPATCH_2F3(argc, v_CONSES_2DWITH_2DCARS_0, v_STRUCTURES_1, v_OTHERS_2)
  1565.       ARGC argc;  LP v_CONSES_2DWITH_2DCARS_0; LP v_STRUCTURES_1; LP v_OTHERS_2;
  1566. {
  1567. LP v_VALUE_21; LP v_N_20; LP v_S_19; 
  1568. LP v_VALUE_17; LP v_N_16; LP v_S_15; 
  1569. LP v_VALUE_13; LP v_N_12; LP v_S_11; 
  1570. LP v_VALUE_9; LP v_N_8; LP v_S_7; 
  1571. LP v_S_6; LP v_LEN_4; 
  1572. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1573. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  1574. LP t12; LP t13; LP t14; LP t15; 
  1575. if (argc != 3) wna(argc,3);
  1576. v_LEN_4 = (LP) 8;
  1577. v_S_6 = (alloc_words(4, 47));
  1578. v_S_7 = v_S_6;
  1579. v_N_8 = (LP) 0;
  1580. v_VALUE_9 = LREF(s_xp_PPRINT_2DDISPATCH);
  1581. ((LP) (DEREF((v_S_6) + 0 * 4) = (LD) (LREF(s_xp_PPRINT_2DDISPATCH))));
  1582. v_S_11 = v_S_6;
  1583. v_N_12 = (LP) 2;
  1584. v_VALUE_13 = v_CONSES_2DWITH_2DCARS_0;
  1585. ((LP) (DEREF((v_S_6) + 1 * 4) = (LD) (v_CONSES_2DWITH_2DCARS_0)));
  1586. v_S_15 = v_S_6;
  1587. v_N_16 = (LP) 4;
  1588. v_VALUE_17 = v_STRUCTURES_1;
  1589. ((LP) (DEREF((v_S_6) + 2 * 4) = (LD) (v_STRUCTURES_1)));
  1590. v_S_19 = v_S_6;
  1591. v_N_20 = (LP) 6;
  1592. v_VALUE_21 = v_OTHERS_2;
  1593. ((LP) (DEREF((v_S_6) + 3 * 4) = (LD) (v_OTHERS_2)));
  1594. return(v_S_6);
  1595. }
  1596.  
  1597. LP p_xp_FLUID_2DPPRINT_2DDISPATCH_2DP_21_40_24(argc, v_S_0)
  1598.       ARGC argc;  LP v_S_0;
  1599. {
  1600. LP v_X_11; LP v_G4_10; LP v_Y_8; 
  1601. LP v_X_7; LP v_EXPECTED_6; LP v_ACTUAL_5; 
  1602. LP v_I_3; LP v_S_2; 
  1603. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1604. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  1605. LP t12; LP t13; LP t14; LP t15; LP t16; 
  1606. if (argc != 1) wna(argc,1);
  1607. v_X_11 = v_S_0;
  1608. if (OTHER_PTRP((v_S_0)) && (TAG((v_S_0)) == 47)) {
  1609. v_S_2 = v_S_0;
  1610. v_I_3 = (LP) 0;
  1611. v_ACTUAL_5 = ((LP) DEREF((v_S_0) + 0 * 4));
  1612. v_EXPECTED_6 = LREF(s_xp_PPRINT_2DDISPATCH);
  1613. v_X_7 = v_EXPECTED_6;
  1614. v_Y_8 = v_ACTUAL_5;
  1615. v_G4_10 = (((v_EXPECTED_6) == (v_ACTUAL_5)) ? T : NIL);
  1616. if (v_G4_10 != NIL) {
  1617. return(v_G4_10);
  1618. } else {
  1619. t0 = ICALL(s_lsp_INHERITED_2DSTRUCTURE_2DNAME_2DP) (MV_CALL(argc,2), v_EXPECTED_6, v_ACTUAL_5);
  1620. return(t0);
  1621. }
  1622. } else {
  1623. return(LREF(s_lsp_NIL));
  1624. }
  1625. }
  1626.  
  1627. LP p_xp_CONSES_2DWITH_2DCARS(argc, v_S_0)
  1628.       ARGC argc;  LP v_S_0;
  1629. {
  1630. LP v_I_3; LP v_S_2; 
  1631. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1632. LP t6; LP t7; 
  1633. if (argc != 1) wna(argc,1);
  1634. t0 = ICALL(s_xp_PPRINT_2DDISPATCH_2DP) (1, v_S_0);
  1635. if (t0 == NIL) {
  1636. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_PPRINT_2DDISPATCH), (LP) 0);
  1637. }
  1638. v_S_2 = v_S_0;
  1639. v_I_3 = (LP) 2;
  1640. t1 = ((LP) DEREF((v_S_0) + 1 * 4));
  1641. return(t1);
  1642. }
  1643.  
  1644. LP p_xp_STRUCTURES(argc, v_S_0)
  1645.       ARGC argc;  LP v_S_0;
  1646. {
  1647. LP v_I_3; LP v_S_2; 
  1648. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1649. LP t6; LP t7; 
  1650. if (argc != 1) wna(argc,1);
  1651. t0 = ICALL(s_xp_PPRINT_2DDISPATCH_2DP) (1, v_S_0);
  1652. if (t0 == NIL) {
  1653. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_PPRINT_2DDISPATCH), (LP) 0);
  1654. }
  1655. v_S_2 = v_S_0;
  1656. v_I_3 = (LP) 4;
  1657. t1 = ((LP) DEREF((v_S_0) + 2 * 4));
  1658. return(t1);
  1659. }
  1660.  
  1661. LP p_xp_OTHERS(argc, v_S_0)
  1662.       ARGC argc;  LP v_S_0;
  1663. {
  1664. LP v_I_3; LP v_S_2; 
  1665. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1666. LP t6; LP t7; 
  1667. if (argc != 1) wna(argc,1);
  1668. t0 = ICALL(s_xp_PPRINT_2DDISPATCH_2DP) (1, v_S_0);
  1669. if (t0 == NIL) {
  1670. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_PPRINT_2DDISPATCH), (LP) 0);
  1671. }
  1672. v_S_2 = v_S_0;
  1673. v_I_3 = (LP) 6;
  1674. t1 = ((LP) DEREF((v_S_0) + 3 * 4));
  1675. return(t1);
  1676. }
  1677.  
  1678. LP p_xp_SET_2DCONSES_2DWITH_2DCARS_21_40_24(argc, v_S_0, v_VALUE_1)
  1679.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  1680. {
  1681. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  1682.  
  1683. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1684. LP t6; LP t7; LP t8; LP t9; LP t10; 
  1685. if (argc != 2) wna(argc,2);
  1686. t0 = ICALL(s_xp_PPRINT_2DDISPATCH_2DP) (1, v_S_0);
  1687. if (t0 == NIL) {
  1688. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_PPRINT_2DDISPATCH), (LP) 0);
  1689. }
  1690. v_S_3 = v_S_0;
  1691. v_N_4 = (LP) 2;
  1692. v_VALUE_5 = v_VALUE_1;
  1693. t1 = ((LP) (DEREF((v_S_0) + 1 * 4) = (LD) (v_VALUE_1)));
  1694. return(t1);
  1695. }
  1696.  
  1697. LP p_xp_SET_2DSTRUCTURES_21_40_24(argc, v_S_0, v_VALUE_1)
  1698.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  1699. {
  1700. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  1701.  
  1702. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1703. LP t6; LP t7; LP t8; LP t9; LP t10; 
  1704. if (argc != 2) wna(argc,2);
  1705. t0 = ICALL(s_xp_PPRINT_2DDISPATCH_2DP) (1, v_S_0);
  1706. if (t0 == NIL) {
  1707. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_PPRINT_2DDISPATCH), (LP) 0);
  1708. }
  1709. v_S_3 = v_S_0;
  1710. v_N_4 = (LP) 4;
  1711. v_VALUE_5 = v_VALUE_1;
  1712. t1 = ((LP) (DEREF((v_S_0) + 2 * 4) = (LD) (v_VALUE_1)));
  1713. return(t1);
  1714. }
  1715.  
  1716. LP p_xp_SET_2DOTHERS_21_40_24(argc, v_S_0, v_VALUE_1)
  1717.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  1718. {
  1719. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  1720.  
  1721. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1722. LP t6; LP t7; LP t8; LP t9; LP t10; 
  1723. if (argc != 2) wna(argc,2);
  1724. t0 = ICALL(s_xp_PPRINT_2DDISPATCH_2DP) (1, v_S_0);
  1725. if (t0 == NIL) {
  1726. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_PPRINT_2DDISPATCH), (LP) 0);
  1727. }
  1728. v_S_3 = v_S_0;
  1729. v_N_4 = (LP) 6;
  1730. v_VALUE_5 = v_VALUE_1;
  1731. t1 = ((LP) (DEREF((v_S_0) + 3 * 4) = (LD) (v_VALUE_1)));
  1732. return(t1);
  1733. }
  1734.  
  1735. LP p_xp_MAKE_2DENTRY(va_alist) va_dcl
  1736. {
  1737. LP v_KEYS5_3; LP v_FULL_2DSPEC_2; LP v_FN_1; 
  1738. LP v_TEST_0; 
  1739. LP t0; LP t1; LP t2; LP t3; LP t4; 
  1740. DYNAMIC_REST_HOLDER(rest_conses);
  1741. int real_argc;
  1742. ARGC argc;
  1743. BEGIN_NON_ANSI_VAR_ARGS;
  1744. argc = (ARGC) NEXT_VAR_ARG;
  1745.  
  1746.  
  1747. real_argc = REAL_ARGC(argc);
  1748. if (real_argc < 0) wna_low(real_argc,0);
  1749. DYNAMIC_RESTIFY(v_KEYS5_3,1,NEXT_VAR_ARG);
  1750. BEGIN_KEY_INIT(v_TEST_0,LREF(s_key_TEST),v_KEYS5_3)
  1751. v_TEST_0 = LREF(s_lsp_NIL);
  1752. END_KEY_INIT
  1753. BEGIN_KEY_INIT(v_FN_1,LREF(s_key_FN),v_KEYS5_3)
  1754. v_FN_1 = LREF(s_lsp_NIL);
  1755. END_KEY_INIT
  1756. BEGIN_KEY_INIT(v_FULL_2DSPEC_2,LREF(s_key_FULL_2DSPEC),v_KEYS5_3)
  1757. v_FULL_2DSPEC_2 = LREF(s_lsp_NIL);
  1758. END_KEY_INIT
  1759. END_VAR_ARGS;
  1760. t0 = ICALL(s_xp_MAKE_2DENTRY_2F3) (MV_CALL(argc,3), v_TEST_0, v_FN_1, v_FULL_2DSPEC_2);
  1761. return(t0);
  1762. }
  1763.  
  1764. LP p_xp_MAKE_2DENTRY_2F3(argc, v_TEST_0, v_FN_1, v_FULL_2DSPEC_2)
  1765.       ARGC argc;  LP v_TEST_0; LP v_FN_1; LP v_FULL_2DSPEC_2;
  1766. {
  1767. LP v_VALUE_21; LP v_N_20; LP v_S_19; 
  1768. LP v_VALUE_17; LP v_N_16; LP v_S_15; 
  1769. LP v_VALUE_13; LP v_N_12; LP v_S_11; 
  1770. LP v_VALUE_9; LP v_N_8; LP v_S_7; 
  1771. LP v_S_6; LP v_LEN_4; 
  1772. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1773. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  1774. LP t12; LP t13; LP t14; LP t15; 
  1775. if (argc != 3) wna(argc,3);
  1776. v_LEN_4 = (LP) 8;
  1777. v_S_6 = (alloc_words(4, 47));
  1778. v_S_7 = v_S_6;
  1779. v_N_8 = (LP) 0;
  1780. v_VALUE_9 = LREF(s_xp_ENTRY);
  1781. ((LP) (DEREF((v_S_6) + 0 * 4) = (LD) (LREF(s_xp_ENTRY))));
  1782. v_S_11 = v_S_6;
  1783. v_N_12 = (LP) 2;
  1784. v_VALUE_13 = v_TEST_0;
  1785. ((LP) (DEREF((v_S_6) + 1 * 4) = (LD) (v_TEST_0)));
  1786. v_S_15 = v_S_6;
  1787. v_N_16 = (LP) 4;
  1788. v_VALUE_17 = v_FN_1;
  1789. ((LP) (DEREF((v_S_6) + 2 * 4) = (LD) (v_FN_1)));
  1790. v_S_19 = v_S_6;
  1791. v_N_20 = (LP) 6;
  1792. v_VALUE_21 = v_FULL_2DSPEC_2;
  1793. ((LP) (DEREF((v_S_6) + 3 * 4) = (LD) (v_FULL_2DSPEC_2)));
  1794. return(v_S_6);
  1795. }
  1796.  
  1797. LP p_xp_FLUID_2DENTRY_2DP_21_40_24(argc, v_S_0)
  1798.       ARGC argc;  LP v_S_0;
  1799. {
  1800. LP v_X_11; LP v_G6_10; LP v_Y_8; 
  1801. LP v_X_7; LP v_EXPECTED_6; LP v_ACTUAL_5; 
  1802. LP v_I_3; LP v_S_2; 
  1803. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1804. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  1805. LP t12; LP t13; LP t14; LP t15; LP t16; 
  1806. if (argc != 1) wna(argc,1);
  1807. v_X_11 = v_S_0;
  1808. if (OTHER_PTRP((v_S_0)) && (TAG((v_S_0)) == 47)) {
  1809. v_S_2 = v_S_0;
  1810. v_I_3 = (LP) 0;
  1811. v_ACTUAL_5 = ((LP) DEREF((v_S_0) + 0 * 4));
  1812. v_EXPECTED_6 = LREF(s_xp_ENTRY);
  1813. v_X_7 = v_EXPECTED_6;
  1814. v_Y_8 = v_ACTUAL_5;
  1815. v_G6_10 = (((v_EXPECTED_6) == (v_ACTUAL_5)) ? T : NIL);
  1816. if (v_G6_10 != NIL) {
  1817. return(v_G6_10);
  1818. } else {
  1819. t0 = ICALL(s_lsp_INHERITED_2DSTRUCTURE_2DNAME_2DP) (MV_CALL(argc,2), v_EXPECTED_6, v_ACTUAL_5);
  1820. return(t0);
  1821. }
  1822. } else {
  1823. return(LREF(s_lsp_NIL));
  1824. }
  1825. }
  1826.  
  1827. LP p_xp_TEST(argc, v_S_0)
  1828.       ARGC argc;  LP v_S_0;
  1829. {
  1830. LP v_I_3; LP v_S_2; 
  1831. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1832. LP t6; LP t7; 
  1833. if (argc != 1) wna(argc,1);
  1834. t0 = ICALL(s_xp_ENTRY_2DP) (1, v_S_0);
  1835. if (t0 == NIL) {
  1836. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_ENTRY), (LP) 0);
  1837. }
  1838. v_S_2 = v_S_0;
  1839. v_I_3 = (LP) 2;
  1840. t1 = ((LP) DEREF((v_S_0) + 1 * 4));
  1841. return(t1);
  1842. }
  1843.  
  1844. LP p_xp_FN(argc, v_S_0)
  1845.       ARGC argc;  LP v_S_0;
  1846. {
  1847. LP v_I_3; LP v_S_2; 
  1848. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1849. LP t6; LP t7; 
  1850. if (argc != 1) wna(argc,1);
  1851. t0 = ICALL(s_xp_ENTRY_2DP) (1, v_S_0);
  1852. if (t0 == NIL) {
  1853. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_ENTRY), (LP) 0);
  1854. }
  1855. v_S_2 = v_S_0;
  1856. v_I_3 = (LP) 4;
  1857. t1 = ((LP) DEREF((v_S_0) + 2 * 4));
  1858. return(t1);
  1859. }
  1860.  
  1861. LP p_xp_FULL_2DSPEC(argc, v_S_0)
  1862.       ARGC argc;  LP v_S_0;
  1863. {
  1864. LP v_I_3; LP v_S_2; 
  1865. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1866. LP t6; LP t7; 
  1867. if (argc != 1) wna(argc,1);
  1868. t0 = ICALL(s_xp_ENTRY_2DP) (1, v_S_0);
  1869. if (t0 == NIL) {
  1870. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_ENTRY), (LP) 0);
  1871. }
  1872. v_S_2 = v_S_0;
  1873. v_I_3 = (LP) 6;
  1874. t1 = ((LP) DEREF((v_S_0) + 3 * 4));
  1875. return(t1);
  1876. }
  1877.  
  1878. LP p_xp_SET_2DTEST_21_40_24(argc, v_S_0, v_VALUE_1)
  1879.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  1880. {
  1881. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  1882.  
  1883. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1884. LP t6; LP t7; LP t8; LP t9; LP t10; 
  1885. if (argc != 2) wna(argc,2);
  1886. t0 = ICALL(s_xp_ENTRY_2DP) (1, v_S_0);
  1887. if (t0 == NIL) {
  1888. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_ENTRY), (LP) 0);
  1889. }
  1890. v_S_3 = v_S_0;
  1891. v_N_4 = (LP) 2;
  1892. v_VALUE_5 = v_VALUE_1;
  1893. t1 = ((LP) (DEREF((v_S_0) + 1 * 4) = (LD) (v_VALUE_1)));
  1894. return(t1);
  1895. }
  1896.  
  1897. LP p_xp_SET_2DFN_21_40_24(argc, v_S_0, v_VALUE_1)
  1898.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  1899. {
  1900. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  1901.  
  1902. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1903. LP t6; LP t7; LP t8; LP t9; LP t10; 
  1904. if (argc != 2) wna(argc,2);
  1905. t0 = ICALL(s_xp_ENTRY_2DP) (1, v_S_0);
  1906. if (t0 == NIL) {
  1907. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_ENTRY), (LP) 0);
  1908. }
  1909. v_S_3 = v_S_0;
  1910. v_N_4 = (LP) 4;
  1911. v_VALUE_5 = v_VALUE_1;
  1912. t1 = ((LP) (DEREF((v_S_0) + 2 * 4) = (LD) (v_VALUE_1)));
  1913. return(t1);
  1914. }
  1915.  
  1916. LP p_xp_SET_2DFULL_2DSPEC_21_40_24(argc, v_S_0, v_VALUE_1)
  1917.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  1918. {
  1919. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  1920.  
  1921. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1922. LP t6; LP t7; LP t8; LP t9; LP t10; 
  1923. if (argc != 2) wna(argc,2);
  1924. t0 = ICALL(s_xp_ENTRY_2DP) (1, v_S_0);
  1925. if (t0 == NIL) {
  1926. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_ENTRY), (LP) 0);
  1927. }
  1928. v_S_3 = v_S_0;
  1929. v_N_4 = (LP) 6;
  1930. v_VALUE_5 = v_VALUE_1;
  1931. t1 = ((LP) (DEREF((v_S_0) + 3 * 4) = (LD) (v_VALUE_1)));
  1932. return(t1);
  1933. }
  1934.  
  1935. LP p_xp_COPY_2DENTRY(argc, v_S_0)
  1936.       ARGC argc;  LP v_S_0;
  1937. {
  1938.  
  1939. LP t0; LP t1; LP t2; LP t3; LP t4; 
  1940. if (argc != 1) wna(argc,1);
  1941. t0 = ICALL(s_lsp_COPY_2DSTRUCTURE) (MV_CALL(argc,1), v_S_0);
  1942. return(t0);
  1943. }
  1944.  
  1945. LP p_xp_STRUCTURE_2DTYPE_2DP(argc, v_X_0)
  1946.       ARGC argc;  LP v_X_0;
  1947. {
  1948. LP v_SYMBOL_2; 
  1949. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1950. LP t6; LP t7; 
  1951. if (argc != 1) wna(argc,1);
  1952. v_SYMBOL_2 = LREF(s_lsp__2ASTRUCTURE_2DINFO_2A);
  1953. t1 = ((LP) DEREF((LREF(s_lsp__2ASTRUCTURE_2DINFO_2A)) + 0 * 4));
  1954. t0 = ICALL(s_lsp_GETHASH) (MV_CALL(argc,2), v_X_0, t1);
  1955. return(t0);
  1956. }
  1957.  
  1958. LP p_xp_OUTPUT_2DWIDTH(va_alist) va_dcl
  1959. {
  1960. LP v_SYMBOL_1; LP v_S_0; 
  1961. LP t0; LP t1; LP t2; LP t3; 
  1962. int real_argc;
  1963. ARGC argc;
  1964. BEGIN_NON_ANSI_VAR_ARGS;
  1965. argc = (ARGC) NEXT_VAR_ARG;
  1966.  
  1967.  
  1968. real_argc = REAL_ARGC(argc);
  1969. if (real_argc < 0) wna_low(real_argc,0);
  1970. if (real_argc > 1) wna_high(real_argc,1);
  1971. if (real_argc < 1) {
  1972. v_SYMBOL_1 = LREF(s_lsp__2ASTANDARD_2DOUTPUT_2A);
  1973. t0 = ((LP) DEREF((v_SYMBOL_1) + 0 * 4));
  1974. v_S_0 = t0;
  1975. } else {
  1976. v_S_0 = NEXT_VAR_ARG;
  1977. }
  1978. END_VAR_ARGS;
  1979. return(LREF(s_lsp_NIL));
  1980. }
  1981.  
  1982. LP p_xp_OUTPUT_2DPOSITION(va_alist) va_dcl
  1983. {
  1984. LP v_SYMBOL_1; LP v_S_0; 
  1985. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  1986. LP t6; LP t7; 
  1987. int real_argc;
  1988. ARGC argc;
  1989. BEGIN_NON_ANSI_VAR_ARGS;
  1990. argc = (ARGC) NEXT_VAR_ARG;
  1991.  
  1992.  
  1993. real_argc = REAL_ARGC(argc);
  1994. if (real_argc < 0) wna_low(real_argc,0);
  1995. if (real_argc > 1) wna_high(real_argc,1);
  1996. if (real_argc < 1) {
  1997. v_SYMBOL_1 = LREF(s_lsp__2ASTANDARD_2DOUTPUT_2A);
  1998. t0 = ((LP) DEREF((v_SYMBOL_1) + 0 * 4));
  1999. v_S_0 = t0;
  2000. } else {
  2001. v_S_0 = NEXT_VAR_ARG;
  2002. }
  2003. END_VAR_ARGS;
  2004. t1 = ICALL(s_lsp_STREAM_2DCOLUMN) (MV_CALL(argc,1), v_S_0);
  2005. return(t1);
  2006. }
  2007.  
  2008. LP p_xp_INSTALL(va_alist) va_dcl
  2009. {
  2010. LP v_X_29; LP v_X_27; LP v_LOOP_2DLIST_2D4_23; 
  2011. LP v_SYM_22; LP v_I_20; LP v_S_19; 
  2012. LP v_S_17; LP v_SYMBOL_15; LP v_Y_13; 
  2013. LP v_X_12; LP v_SYMBOL_10; LP v_X_8; 
  2014. LP v_KEYS7_6; LP v_REMOVE_5; LP v_SHADOW_4; 
  2015. LP v_MACRO_3; LP v_SYMBOL_1; LP v_PACKAGE_0; 
  2016.  
  2017. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2018. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2019. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2020. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  2021. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  2022. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  2023. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  2024. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  2025. LP t48; LP t49; LP t50; 
  2026. DYNAMIC_REST_HOLDER(rest_conses);
  2027. int real_argc;
  2028. ARGC argc;
  2029. BEGIN_NON_ANSI_VAR_ARGS;
  2030. argc = (ARGC) NEXT_VAR_ARG;
  2031.  
  2032.  
  2033. real_argc = REAL_ARGC(argc);
  2034. if (real_argc < 0) wna_low(real_argc,0);
  2035. DYNAMIC_RESTIFY(v_KEYS7_6,1,NEXT_VAR_ARG);
  2036. BEGIN_KEY_INIT(v_PACKAGE_0,LREF(s_key_PACKAGE),v_KEYS7_6)
  2037. v_SYMBOL_1 = LREF(s_lsp__2APACKAGE_2A);
  2038. t0 = ((LP) DEREF((v_SYMBOL_1) + 0 * 4));
  2039. v_PACKAGE_0 = t0;
  2040. END_KEY_INIT
  2041. BEGIN_KEY_INIT(v_MACRO_3,LREF(s_key_MACRO),v_KEYS7_6)
  2042. v_MACRO_3 = LREF(s_lsp_NIL);
  2043. END_KEY_INIT
  2044. BEGIN_KEY_INIT(v_SHADOW_4,LREF(s_key_SHADOW),v_KEYS7_6)
  2045. v_SHADOW_4 = LREF(s_lsp_T);
  2046. END_KEY_INIT
  2047. BEGIN_KEY_INIT(v_REMOVE_5,LREF(s_key_REMOVE),v_KEYS7_6)
  2048. v_REMOVE_5 = LREF(s_lsp_NIL);
  2049. END_KEY_INIT
  2050. END_VAR_ARGS;
  2051. t1 = ICALL(s_lsp_PACKAGEP) (1, v_PACKAGE_0);
  2052. if (t1 == NIL) {
  2053. v_PACKAGE_0 = ICALL(s_lsp_FIND_2DPACKAGE) (1, v_PACKAGE_0);
  2054. }
  2055. if (v_REMOVE_5 == NIL) {
  2056. if (v_MACRO_3 != NIL) {
  2057. v_X_8 = LREF(s_xp_FORMAT_2DSTRING_2DREADER);
  2058. t2 = ((LP) DEREF((LREF(s_xp_FORMAT_2DSTRING_2DREADER)) + 4 * 4));
  2059. ICALL(s_lsp_SET_2DDISPATCH_2DMACRO_2DCHARACTER) (3, LREF(char_tab[35]), LREF(char_tab[34]), t2);
  2060. }
  2061. v_X_12 = v_PACKAGE_0;
  2062. v_Y_13 = ICALL(s_lsp_FIND_2DPACKAGE) (1, LREF(k40));
  2063. if (((v_X_12) == (v_Y_13)) == 0) {
  2064. ICALL(s_lsp_USE_2DPACKAGE) (2, LREF(k40), v_PACKAGE_0);
  2065. if (v_SHADOW_4 != NIL) {
  2066. v_SYMBOL_10 = LREF(s_xp__2AXP_2DPRINTING_2DFUNCTIONS_2A);
  2067. t4 = ((LP) DEREF((LREF(s_xp__2AXP_2DPRINTING_2DFUNCTIONS_2A)) + 0 * 4));
  2068. ICALL(s_lsp_SHADOWING_2DIMPORT) (2, t4, v_PACKAGE_0);
  2069. }
  2070. }
  2071. }
  2072. if (v_REMOVE_5 != NIL) {
  2073. t6 = ICALL(s_lsp_FIND_2DPACKAGE) (1, LREF(k40));
  2074. t7 = ICALL(s_lsp_PACKAGE_2DUSE_2DLIST) (1, v_PACKAGE_0);
  2075. t5 = ICALL(s_lsp_MEMQL) (2, t6, t7);
  2076. } else {
  2077. t5 = LREF(s_lsp_NIL);
  2078. }
  2079. if (t5 != NIL) {
  2080. ICALL(s_lsp_UNUSE_2DPACKAGE) (2, LREF(k40), v_PACKAGE_0);
  2081. v_SYM_22 = LREF(s_lsp_NIL);
  2082. v_SYMBOL_15 = LREF(s_xp__2AXP_2DPRINTING_2DFUNCTIONS_2A);
  2083. t8 = ((LP) DEREF((LREF(s_xp__2AXP_2DPRINTING_2DFUNCTIONS_2A)) + 0 * 4));
  2084. v_S_17 = v_PACKAGE_0;
  2085. v_S_19 = v_S_17;
  2086. v_I_20 = (LP) 10;
  2087. t9 = ((LP) DEREF((v_S_17) + 5 * 4));
  2088. v_LOOP_2DLIST_2D4_23 = ICALL(s_lsp_INTERSECTION) (2, t8, t9);
  2089. t_NEXT_2DLOOP_25:;
  2090. if (v_LOOP_2DLIST_2D4_23 == NIL) {
  2091. goto t_END_2DLOOP_26;
  2092. }
  2093. v_X_27 = v_LOOP_2DLIST_2D4_23;
  2094. v_SYM_22 = ((LP) DEREF((v_X_27) + 0 * 4));
  2095. v_X_29 = v_LOOP_2DLIST_2D4_23;
  2096. v_LOOP_2DLIST_2D4_23 = ((LP) DEREF((v_X_29) + 1 * 4));
  2097. ICALL(s_lsp_UNINTERN) (2, v_SYM_22, v_PACKAGE_0);
  2098. goto t_NEXT_2DLOOP_25;
  2099. goto t_END_2DLOOP_26;
  2100. t_END_2DLOOP_26:;
  2101. goto b_NIL_24;
  2102. b_NIL_24:;
  2103. }
  2104. return(LREF(s_lsp_T));
  2105. }
  2106.  
  2107. LP p_xp_GET_2DCIRCULARITY_2DHASH_2DTABLE(argc)
  2108.       ARGC argc; 
  2109. {
  2110. LP v_REHASH_2DTHRESHOLD_23; LP v_REHASH_2DSIZE_22; LP v_SIZE_21; 
  2111. LP v_TEST_20; LP v_REHASH_2DTHRESHOLD_19; LP v_REHASH_2DSIZE_18; 
  2112. LP v_SIZE_17; LP v_X_15; LP v_TEST_14; 
  2113. LP v_TABLE_13; LP v_V_11; LP v_X_10; 
  2114. LP v_S10_9; LP v_X_7; LP v_VALUE9_6; 
  2115. LP v_X_4; LP v_LIST8_3; LP v_SYMBOL_1; 
  2116.  
  2117. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2118. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2119. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2120. LP t18; LP t19; 
  2121. if (argc != 0) wna(argc,0);
  2122. v_SYMBOL_1 = LREF(s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A);
  2123. v_LIST8_3 = ((LP) DEREF((LREF(s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A)) + 0 * 4));
  2124. v_X_4 = v_LIST8_3;
  2125. v_VALUE9_6 = ((LP) DEREF((v_LIST8_3) + 0 * 4));
  2126. v_X_7 = v_LIST8_3;
  2127. v_S10_9 = ((LP) DEREF((v_LIST8_3) + 1 * 4));
  2128. v_V_11 = v_S10_9;
  2129. ((LP) (DEREF((LREF(s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A)) + 0 * 4) = (LD) (v_V_11)));
  2130. v_TABLE_13 = v_VALUE9_6;
  2131. if (v_TABLE_13 != NIL) {
  2132. return(v_TABLE_13);
  2133. } else {
  2134. v_TEST_20 = LREF(s_lsp_EQ);
  2135. v_SIZE_21 = (LP) 130;
  2136. v_REHASH_2DSIZE_22 = LREF(k38);
  2137. v_REHASH_2DTHRESHOLD_23 = LREF(k39);
  2138. t0 = ICALL(s_lsp_MAKE_2DHASH_2DTABLE_2D1) (MV_CALL(argc,4), LREF(s_lsp_EQ), (LP) 130, LREF(k38), LREF(k39));
  2139. return(t0);
  2140. }
  2141. }
  2142.  
  2143. LP p_xp_FREE_2DCIRCULARITY_2DHASH_2DTABLE(argc, v_TABLE_0)
  2144.       ARGC argc;  LP v_TABLE_0;
  2145. {
  2146. LP v_V_10; LP v_X_9; LP v_S11_8; 
  2147. LP v_X_6; LP v_X_4; LP v_SYMBOL_2; 
  2148.  
  2149. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2150. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2151. LP t12; 
  2152. if (argc != 1) wna(argc,1);
  2153. ICALL(s_lsp_CLRHASH) (1, v_TABLE_0);
  2154. v_SYMBOL_2 = LREF(s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A);
  2155. t0 = ((LP) DEREF((LREF(s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A)) + 0 * 4));
  2156. v_X_4 = LREF(s_lsp_EQL);
  2157. t1 = ((LP) DEREF((LREF(s_lsp_EQL)) + 4 * 4));
  2158. v_X_6 = LREF(s_lsp_IDENTITY);
  2159. t2 = ((LP) DEREF((LREF(s_lsp_IDENTITY)) + 4 * 4));
  2160. v_S11_8 = ICALL(s_lsp_ADJOIN_2F4) (4, v_TABLE_0, t0, t1, t2);
  2161. v_V_10 = v_S11_8;
  2162. ((LP) (DEREF((LREF(s_xp__2AFREE_2DCIRCULARITY_2DHASH_2DTABLES_2A)) + 0 * 4) = (LD) (v_V_10)));
  2163. return(v_V_10);
  2164. }
  2165.  
  2166. LP p_xp_COPY_2DPPRINT_2DDISPATCH(va_alist) va_dcl
  2167. {
  2168. LP v_OTHERS_100; LP v_STRUCTURES_99; LP v_CONSES_2DWITH_2DCARS_98; 
  2169. LP v_I_96; LP v_S_95; LP v_S_93; 
  2170. LP v_OTHERS_92; LP v_REHASH_2DTHRESHOLD_90; LP v_REHASH_2DSIZE_89; 
  2171. LP v_SIZE_88; LP v_TEST_87; LP v_X_85; 
  2172. LP v_REHASH_2DTHRESHOLD_84; LP v_REHASH_2DSIZE_83; LP v_SIZE_82; 
  2173. LP v_X_80; LP v_TEST_79; LP v_STRUCTURES_78; 
  2174. LP v_REHASH_2DTHRESHOLD_76; LP v_REHASH_2DSIZE_75; LP v_SIZE_74; 
  2175. LP v_TEST_73; LP v_X_71; LP v_REHASH_2DTHRESHOLD_70; 
  2176. LP v_REHASH_2DSIZE_69; LP v_SIZE_68; LP v_X_66; 
  2177. LP v_TEST_65; LP v_CONSES_2DWITH_2DCARS_64; LP v_I_62; 
  2178. LP v_S_61; LP v_S_59; LP v_I_57; 
  2179. LP v_S_56; LP v_S_54; LP v_NEW_2DSTRUCTURES_53; 
  2180. LP v_REHASH_2DTHRESHOLD_51; LP v_REHASH_2DSIZE_50; LP v_SIZE_49; 
  2181. LP v_TEST_48; LP v_I_46; LP v_S_45; 
  2182. LP v_S_43; LP v_I_41; LP v_S_40; 
  2183. LP v_S_38; LP v_X_36; LP v_REHASH_2DTHRESHOLD_35; 
  2184. LP v_REHASH_2DSIZE_34; LP v_SIZE_33; LP v_X_31; 
  2185. LP v_TEST_30; LP v_NEW_2DCONSES_2DWITH_2DCARS_29; LP v_REHASH_2DTHRESHOLD_27; 
  2186. LP v_REHASH_2DSIZE_26; LP v_SIZE_25; LP v_TEST_24; 
  2187. LP v_I_22; LP v_S_21; LP v_S_19; 
  2188. LP v_I_17; LP v_S_16; LP v_S_14; 
  2189. LP v_X_12; LP v_REHASH_2DTHRESHOLD_11; LP v_REHASH_2DSIZE_10; 
  2190. LP v_SIZE_9; LP v_X_7; LP v_TEST_6; 
  2191. LP v_SYMBOL_4; LP v_SYMBOL_1; LP v_TABLE_0; 
  2192.  
  2193. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2194. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2195. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2196. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  2197. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  2198. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  2199. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  2200. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  2201. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  2202. LP t54; LP t55; LP t56; LP t57; LP t58; LP t59; 
  2203. LP t60; LP t61; LP t62; LP t63; LP t64; LP t65; 
  2204. LP t66; LP t67; LP t68; LP t69; LP t70; LP t71; 
  2205. LP t72; LP t73; LP t74; LP t75; LP t76; LP t77; 
  2206. LP t78; LP t79; 
  2207. int real_argc;
  2208. ARGC argc;
  2209. BEGIN_NON_ANSI_VAR_ARGS;
  2210. argc = (ARGC) NEXT_VAR_ARG;
  2211.  
  2212.  
  2213. t0 = NEW_OE(2);
  2214. real_argc = REAL_ARGC(argc);
  2215. if (real_argc < 0) wna_low(real_argc,0);
  2216. if (real_argc > 1) wna_high(real_argc,1);
  2217. if (real_argc < 1) {
  2218. v_SYMBOL_1 = LREF(s_xp__2APRINT_2DPPRINT_2DDISPATCH_2A);
  2219. t1 = ((LP) DEREF((v_SYMBOL_1) + 0 * 4));
  2220. v_TABLE_0 = t1;
  2221. } else {
  2222. v_TABLE_0 = NEXT_VAR_ARG;
  2223. }
  2224. END_VAR_ARGS;
  2225. if (v_TABLE_0 == NIL) {
  2226. v_SYMBOL_4 = LREF(s_xp__2AIPD_2A);
  2227. v_TABLE_0 = ((LP) DEREF((LREF(s_xp__2AIPD_2A)) + 0 * 4));
  2228. }
  2229. v_X_12 = LREF(s_lsp_EQ);
  2230. v_TEST_24 = ((LP) DEREF((LREF(s_lsp_EQ)) + 4 * 4));
  2231. v_S_14 = v_TABLE_0;
  2232. v_S_16 = v_S_14;
  2233. v_I_17 = (LP) 2;
  2234. v_S_19 = ((LP) DEREF((v_S_14) + 1 * 4));
  2235. v_S_21 = v_S_19;
  2236. v_I_22 = (LP) 10;
  2237. t2 = ((LP) DEREF((v_S_19) + 5 * 4));
  2238. v_SIZE_25 = ICALL(s_lsp_MAX) (2, t2, (LP) 64);
  2239. v_NEW_2DCONSES_2DWITH_2DCARS_29 = ICALL(s_lsp_MAKE_2DHASH_2DTABLE_2D1) (4, v_TEST_24, v_SIZE_25, LREF(k38), LREF(k39));
  2240. SET_OE_SLOT(t0,1,v_NEW_2DCONSES_2DWITH_2DCARS_29);
  2241. v_X_36 = LREF(s_lsp_EQ);
  2242. v_TEST_48 = ((LP) DEREF((LREF(s_lsp_EQ)) + 4 * 4));
  2243. v_S_38 = v_TABLE_0;
  2244. v_S_40 = v_S_38;
  2245. v_I_41 = (LP) 4;
  2246. v_S_43 = ((LP) DEREF((v_S_38) + 2 * 4));
  2247. v_S_45 = v_S_43;
  2248. v_I_46 = (LP) 10;
  2249. t3 = ((LP) DEREF((v_S_43) + 5 * 4));
  2250. v_SIZE_49 = ICALL(s_lsp_MAX) (2, t3, (LP) 64);
  2251. v_NEW_2DSTRUCTURES_53 = ICALL(s_lsp_MAKE_2DHASH_2DTABLE_2D1) (4, v_TEST_48, v_SIZE_49, LREF(k38), LREF(k39));
  2252. SET_OE_SLOT(t0,0,v_NEW_2DSTRUCTURES_53);
  2253. t4 = MAKE_CLOSURE(p_xp_COPY_2DPPRINT_2DDISPATCH_2Danon4142,t0);
  2254. v_S_54 = v_TABLE_0;
  2255. v_S_56 = v_S_54;
  2256. v_I_57 = (LP) 2;
  2257. t5 = ((LP) DEREF((v_S_54) + 1 * 4));
  2258. ICALL(s_lsp_MAPHASH) (2, t4, t5);
  2259. t6 = MAKE_CLOSURE(p_xp_COPY_2DPPRINT_2DDISPATCH_2Danon4344,t0);
  2260. v_S_59 = v_TABLE_0;
  2261. v_S_61 = v_S_59;
  2262. v_I_62 = (LP) 4;
  2263. t7 = ((LP) DEREF((v_S_59) + 2 * 4));
  2264. ICALL(s_lsp_MAPHASH) (2, t6, t7);
  2265. v_S_93 = v_TABLE_0;
  2266. v_S_95 = v_S_93;
  2267. v_I_96 = (LP) 6;
  2268. t8 = ((LP) DEREF((v_S_93) + 3 * 4));
  2269. v_OTHERS_100 = ICALL(s_lsp_COPY_2DLIST) (1, t8);
  2270. t9 = ICALL(s_xp_MAKE_2DPPRINT_2DDISPATCH_2F3) (MV_CALL(argc,3), GET_OE_SLOT(t0,1), GET_OE_SLOT(t0,0), v_OTHERS_100);
  2271. return(t9);
  2272. }
  2273.  
  2274. LP p_xp_COPY_2DPPRINT_2DDISPATCH_2Danon4344(argc, v_KEY_0, v_VALUE_1)
  2275.       ARGC argc;  LP v_KEY_0; LP v_VALUE_1;
  2276. {
  2277. LP v_T17_4; LP v_T16_3; LP v_S15_2; 
  2278.  
  2279. LP t0; LP t1; LP t2; LP t3; LP t4; 
  2280. if (argc != 2) wna(argc,2);
  2281. t0 = OE;
  2282. v_S15_2 = ICALL(s_xp_COPY_2DENTRY) (1, v_VALUE_1);
  2283. v_T16_3 = v_KEY_0;
  2284. v_T17_4 = GET_OE_SLOT(t0,0);
  2285. t1 = ICALL(s_lsp_SET_2DGETHASH) (MV_CALL(argc,3), v_KEY_0, GET_OE_SLOT(t0,0), v_S15_2);
  2286. return(t1);
  2287. }
  2288.  
  2289. LP p_xp_COPY_2DPPRINT_2DDISPATCH_2Danon4142(argc, v_KEY_0, v_VALUE_1)
  2290.       ARGC argc;  LP v_KEY_0; LP v_VALUE_1;
  2291. {
  2292. LP v_T14_4; LP v_T13_3; LP v_S12_2; 
  2293.  
  2294. LP t0; LP t1; LP t2; LP t3; LP t4; 
  2295. if (argc != 2) wna(argc,2);
  2296. t0 = OE;
  2297. v_S12_2 = ICALL(s_xp_COPY_2DENTRY) (1, v_VALUE_1);
  2298. v_T13_3 = v_KEY_0;
  2299. v_T14_4 = GET_OE_SLOT(t0,1);
  2300. t1 = ICALL(s_lsp_SET_2DGETHASH) (MV_CALL(argc,3), v_KEY_0, GET_OE_SLOT(t0,1), v_S12_2);
  2301. return(t1);
  2302. }
  2303.  
  2304. LP p_xp_SET_2DPPRINT_2DDISPATCH(va_alist) va_dcl
  2305. {
  2306. LP v_X_15; LP v_G18_14; LP v_Y_12; 
  2307. LP v_X_11; LP v_X_9; LP v_X_7; 
  2308. LP v_FUNCTION_1; LP v_TYPE_2DSPECIFIER_0; LP v_SYMBOL_4; 
  2309. LP v_TABLE_3; LP v_PRIORITY_2; 
  2310. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2311. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2312. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2313. LP t18; 
  2314. int real_argc;
  2315. ARGC argc;
  2316. BEGIN_NON_ANSI_VAR_ARGS;
  2317. argc = (ARGC) NEXT_VAR_ARG;
  2318. v_TYPE_2DSPECIFIER_0 = NEXT_VAR_ARG;
  2319. v_FUNCTION_1 = NEXT_VAR_ARG;
  2320.  
  2321.  
  2322. real_argc = REAL_ARGC(argc);
  2323. if (real_argc < 2) wna_low(real_argc,2);
  2324. if (real_argc > 4) wna_high(real_argc,4);
  2325. if (real_argc < 3) {
  2326. v_PRIORITY_2 = (LP) 0;
  2327. } else {
  2328. v_PRIORITY_2 = NEXT_VAR_ARG;
  2329. }
  2330. if (real_argc < 4) {
  2331. v_SYMBOL_4 = LREF(s_xp__2APRINT_2DPPRINT_2DDISPATCH_2A);
  2332. t0 = ((LP) DEREF((v_SYMBOL_4) + 0 * 4));
  2333. v_TABLE_3 = t0;
  2334. } else {
  2335. v_TABLE_3 = NEXT_VAR_ARG;
  2336. }
  2337. END_VAR_ARGS;
  2338. v_X_7 = v_PRIORITY_2;
  2339. v_X_9 = ((FIXNUMP((v_PRIORITY_2)) || (((HEADER((v_PRIORITY_2))) & 0x3) == 0x1)) ? T : NIL);
  2340. v_X_11 = v_X_9;
  2341. v_Y_12 = LREF(s_lsp_NIL);
  2342. v_G18_14 = (((v_X_9) == (LREF(s_lsp_NIL))) ? T : NIL);
  2343. if (v_G18_14 != NIL) {
  2344. t1 = v_G18_14;
  2345. } else {
  2346. v_X_15 = v_PRIORITY_2;
  2347. t1 = (OTHER_PTRP((v_PRIORITY_2)) && (TAG((v_PRIORITY_2)) == 13) ? T : NIL);
  2348. }
  2349. if (t1 != NIL) {
  2350. ICALL(s_lsp_ERROR) (2, LREF(k45), v_PRIORITY_2);
  2351. }
  2352. t2 = ICALL(s_xp_SET_2DPPRINT_2DDISPATCH_2B) (MV_CALL(argc,4), v_TYPE_2DSPECIFIER_0, v_FUNCTION_1, v_PRIORITY_2, v_TABLE_3);
  2353. return(t2);
  2354. }
  2355.  
  2356. LP p_xp_SET_2DPPRINT_2DDISPATCH_2B(argc, v_TYPE_2DSPECIFIER_0, v_FUNCTION_1, v_PRIORITY_2, v_TABLE_3)
  2357.       ARGC argc;  LP v_TYPE_2DSPECIFIER_0; LP v_FUNCTION_1; LP v_PRIORITY_2; LP v_TABLE_3;
  2358. {
  2359. LP v_Y_264; LP v_X_263; LP v_Y_261; 
  2360. LP v_X_260; LP v_VALUE_258; LP v_N_257; 
  2361. LP v_S_256; LP v_VALUE_254; LP v_S_253; 
  2362. LP v_T36_252; LP v_S35_251; LP v_X_249; 
  2363. LP v_X_247; LP v_I_245; LP v_S_244; 
  2364. LP v_S_242; LP v_X_240; LP v_X_238; 
  2365. LP v_C_236; LP v_V_234; LP v_X_233; 
  2366. LP v_NEW_2DCDR_231; LP v_C_230; LP v_Y_228; 
  2367. LP v_X_227; LP v_X_225; LP v_X_223; 
  2368. LP v_V_221; LP v_X_220; LP v_NEW_2DCDR_218; 
  2369. LP v_C_217; LP v_Y_215; LP v_X_214; 
  2370. LP v_TMP34_213; LP v_X_211; LP v_L_208; 
  2371. LP v_OTHERS_206; LP v_Y_204; LP v_X_203; 
  2372. LP v_I_201; LP v_S_200; LP v_S_198; 
  2373. LP v_X_196; LP v_I_194; LP v_S_193; 
  2374. LP v_S_191; LP v_VALUE_189; LP v_N_188; 
  2375. LP v_S_187; LP v_VALUE_185; LP v_S_184; 
  2376. LP v_T31_183; LP v_S30_182; LP v_KEY_180; 
  2377. LP v_COUNT_179; LP v_END_178; LP v_START_177; 
  2378. LP v_TEST_2DNOT_176; LP v_TEST_175; LP v_FROM_2DEND_174; 
  2379. LP v_SEQUENCE_173; LP v_ITEM_172; LP v_I_170; 
  2380. LP v_S_169; LP v_S_167; LP v_SEQUENCE_155; 
  2381. LP v_ITEM_154; LP v_X_165; LP v_KEY_164; 
  2382. LP v_COUNT_163; LP v_END_162; LP v_START_161; 
  2383. LP v_TEST_2DNOT_160; LP v_X_158; LP v_TEST_157; 
  2384. LP v_FROM_2DEND_156; LP v_OLD_153; LP v_X_151; 
  2385. LP v_X_149; LP v_I_147; LP v_S_146; 
  2386. LP v_S_144; LP v_T29_143; LP v_I_141; 
  2387. LP v_S_140; LP v_S_138; LP v_T28_137; 
  2388. LP v_S27_136; LP v_VALUE_134; LP v_N_133; 
  2389. LP v_S_132; LP v_VALUE_130; LP v_S_129; 
  2390. LP v_T26_128; LP v_S25_127; LP v_I_125; 
  2391. LP v_S_124; LP v_S_122; LP v_I_120; 
  2392. LP v_S_119; LP v_S_117; LP v_T24_116; 
  2393. LP v_I_114; LP v_S_113; LP v_S_111; 
  2394. LP v_T23_110; LP v_X_108; LP v_X_106; 
  2395. LP v_X_104; LP v_X_102; LP v_C_100; 
  2396. LP v_S22_99; LP v_VALUE_97; LP v_N_96; 
  2397. LP v_S_95; LP v_VALUE_93; LP v_S_92; 
  2398. LP v_T21_91; LP v_S20_90; LP v_I_88; 
  2399. LP v_S_87; LP v_S_85; LP v_I_83; 
  2400. LP v_S_82; LP v_S_80; LP v_X_78; 
  2401. LP v_X_76; LP v_X_74; LP v_X_72; 
  2402. LP v_C_70; LP v_KEY19_69; LP v_ENTRY_68; 
  2403. LP v_FULL_2DSPEC_66; LP v_FN_65; LP v_TEST_64; 
  2404. LP v_Y_62; LP v_X_61; LP v_Y_59; 
  2405. LP v_X_58; LP v_FULL_2DSPEC_57; LP v_FN_56; 
  2406. LP v_TEST_55; LP v_PRED_54; LP v_Y_52; 
  2407. LP v_X_51; LP v_X_49; LP v_X_47; 
  2408. LP v_X_45; LP v_X_43; LP v_C_41; 
  2409. LP v_S_39; LP v_X_37; LP v_X_35; 
  2410. LP v_X_33; LP v_X_31; LP v_C_29; 
  2411. LP v_X_27; LP v_X_25; LP v_X_23; 
  2412. LP v_X_21; LP v_C_19; LP v_X_17; 
  2413. LP v_X_15; LP v_X_13; LP v_X_11; 
  2414. LP v_X_9; LP v_C_7; LP v_PRED_6; 
  2415. LP v_CATEGORY_5; 
  2416. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2417. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2418. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2419. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  2420. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  2421. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  2422. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  2423. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  2424. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  2425. LP t54; LP t55; LP t56; LP t57; LP t58; LP t59; 
  2426. LP t60; LP t61; LP t62; LP t63; LP t64; LP t65; 
  2427. LP t66; LP t67; LP t68; LP t69; LP t70; LP t71; 
  2428. LP t72; LP t73; LP t74; LP t75; LP t76; LP t77; 
  2429. LP t78; LP t79; LP t80; LP t81; LP t82; LP t83; 
  2430. LP t84; LP t85; LP t86; LP t87; LP t88; LP t89; 
  2431. LP t90; LP t91; LP t92; LP t93; LP t94; LP t95; 
  2432. LP t96; LP t97; LP t98; LP t99; LP t100; LP t101; 
  2433. LP t102; LP t103; LP t104; LP t105; LP t106; LP t107; 
  2434. LP t108; LP t109; LP t110; LP t111; LP t112; LP t113; 
  2435. LP t114; LP t115; LP t116; LP t117; LP t118; LP t119; 
  2436. LP t120; LP t121; LP t122; LP t123; LP t124; LP t125; 
  2437. LP t126; LP t127; LP t128; LP t129; LP t130; LP t131; 
  2438. LP t132; LP t133; LP t134; LP t135; LP t136; LP t137; 
  2439. LP t138; LP t139; LP t140; LP t141; LP t142; LP t143; 
  2440. LP t144; LP t145; LP t146; LP t147; LP t148; LP t149; 
  2441. LP t150; LP t151; LP t152; LP t153; LP t154; LP t155; 
  2442. LP t156; LP t157; LP t158; LP t159; LP t160; LP t161; 
  2443. LP t162; LP t163; LP t164; LP t165; LP t166; LP t167; 
  2444. LP t168; LP t169; LP t170; LP t171; LP t172; LP t173; 
  2445. LP t174; LP t175; LP t176; LP t177; LP t178; LP t179; 
  2446. LP t180; LP t181; LP t182; LP t183; LP t184; LP t185; 
  2447. LP t186; LP t187; LP t188; LP t189; LP t190; LP t191; 
  2448. LP t192; LP t193; LP t194; LP t195; LP t196; LP t197; 
  2449. LP t198; LP t199; LP t200; LP t201; LP t202; LP t203; 
  2450. LP t204; LP t205; LP t206; LP t207; LP t208; LP t209; 
  2451. LP t210; LP t211; LP t212; LP t213; LP t214; LP t215; 
  2452. LP t216; LP t217; LP t218; LP t219; LP t220; LP t221; 
  2453. LP t222; LP t223; LP t224; LP t225; LP t226; LP t227; 
  2454. LP t228; LP t229; LP t230; LP t231; LP t232; LP t233; 
  2455. LP t234; LP t235; LP t236; LP t237; LP t238; LP t239; 
  2456.  
  2457. if (argc != 4) wna(argc,4);
  2458. t0 = NEW_OE(1);
  2459. SET_OE_SLOT(t0,0,v_PRIORITY_2);
  2460. v_CATEGORY_5 = ICALL(s_xp_SPECIFIER_2DCATEGORY) (1, v_TYPE_2DSPECIFIER_0);
  2461. v_X_51 = v_CATEGORY_5;
  2462. v_Y_52 = LREF(s_xp_OTHER);
  2463. if (((v_CATEGORY_5) == (LREF(s_xp_OTHER)))) {
  2464. v_PRED_6 = ICALL(s_xp_SPECIFIER_2DFN) (1, v_TYPE_2DSPECIFIER_0);
  2465. v_C_41 = v_PRED_6;
  2466. v_X_43 = v_PRED_6;
  2467. v_X_45 = ((LP) DEREF((v_PRED_6) + 1 * 4));
  2468. v_X_47 = ((LP) DEREF((v_X_45) + 1 * 4));
  2469. v_X_49 = ((LP) DEREF((v_X_47) + 0 * 4));
  2470. if (OTHER_PTRP((v_X_49)) && (TAG((v_X_49)) == 15)) {
  2471. v_C_29 = v_PRED_6;
  2472. v_X_31 = v_PRED_6;
  2473. v_X_33 = ((LP) DEREF((v_PRED_6) + 1 * 4));
  2474. v_X_35 = ((LP) DEREF((v_X_33) + 1 * 4));
  2475. v_X_37 = ((LP) DEREF((v_X_35) + 0 * 4));
  2476. v_S_39 = ((LP) DEREF((v_X_37) + 0 * 4));
  2477. if (OTHER_PTRP((v_S_39)) && (TAG((v_S_39)) == 3)) {
  2478. v_C_19 = v_PRED_6;
  2479. v_X_21 = v_PRED_6;
  2480. v_X_23 = ((LP) DEREF((v_PRED_6) + 1 * 4));
  2481. v_X_25 = ((LP) DEREF((v_X_23) + 1 * 4));
  2482. v_X_27 = ((LP) DEREF((v_X_25) + 0 * 4));
  2483. t5 = ((LP) DEREF((v_X_27) + 1 * 4));
  2484. t2 = ICALL(s_lsp_EQUAL) (2, t5, LREF(k52));
  2485. } else {
  2486. t2 = LREF(s_lsp_NIL);
  2487. }
  2488. } else {
  2489. t2 = LREF(s_lsp_NIL);
  2490. }
  2491. if (t2 != NIL) {
  2492. v_C_7 = v_PRED_6;
  2493. v_X_9 = v_PRED_6;
  2494. v_X_11 = ((LP) DEREF((v_PRED_6) + 1 * 4));
  2495. v_X_13 = ((LP) DEREF((v_X_11) + 1 * 4));
  2496. v_X_15 = ((LP) DEREF((v_X_13) + 0 * 4));
  2497. v_X_17 = ((LP) DEREF((v_X_15) + 0 * 4));
  2498. v_PRED_54 = ((LP) DEREF((v_X_17) + 4 * 4));
  2499. } else {
  2500. v_PRED_54 = ICALL(s_lsp_COMPILE) (2, LREF(s_lsp_NIL), v_PRED_6);
  2501. }
  2502. } else {
  2503. v_PRED_54 = LREF(s_lsp_NIL);
  2504. }
  2505. if (v_FUNCTION_1 != NIL) {
  2506. v_X_58 = v_TYPE_2DSPECIFIER_0;
  2507. v_Y_59 = LREF(s_lsp_NIL);
  2508. v_Y_62 = (c_cons((v_TYPE_2DSPECIFIER_0), (LREF(s_lsp_NIL))));
  2509. v_FULL_2DSPEC_66 = (c_cons((GET_OE_SLOT(t0,0)), (v_Y_62)));
  2510. v_ENTRY_68 = ICALL(s_xp_MAKE_2DENTRY_2F3) (3, v_PRED_54, v_FUNCTION_1, v_FULL_2DSPEC_66);
  2511. } else {
  2512. v_ENTRY_68 = LREF(s_lsp_NIL);
  2513. }
  2514. v_KEY19_69 = v_CATEGORY_5;
  2515. v_X_263 = v_KEY19_69;
  2516. v_Y_264 = LREF(s_xp_CONS_2DWITH_2DCAR);
  2517. t6 = (c_eql((v_KEY19_69), (LREF(s_xp_CONS_2DWITH_2DCAR))));
  2518. if (t6 != NIL) {
  2519. if (v_ENTRY_68 != NIL) {
  2520. t7 = MAKE_CLOSURE(p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon4647,t0);
  2521. v_S_85 = v_TABLE_3;
  2522. v_S_87 = v_TABLE_3;
  2523. v_I_88 = (LP) 6;
  2524. t8 = ((LP) DEREF((v_TABLE_3) + 3 * 4));
  2525. v_S20_90 = ICALL(s_lsp_COUNT_2DIF) (2, t7, t8);
  2526. v_T21_91 = v_ENTRY_68;
  2527. v_S_92 = v_ENTRY_68;
  2528. v_VALUE_93 = v_S20_90;
  2529. v_S_95 = v_ENTRY_68;
  2530. v_N_96 = (LP) 2;
  2531. v_VALUE_97 = v_S20_90;
  2532. ((LP) (DEREF((v_ENTRY_68) + 1 * 4) = (LD) (v_S20_90)));
  2533. v_S22_99 = v_ENTRY_68;
  2534. v_C_100 = v_TYPE_2DSPECIFIER_0;
  2535. v_X_102 = v_TYPE_2DSPECIFIER_0;
  2536. v_X_104 = ((LP) DEREF((v_TYPE_2DSPECIFIER_0) + 1 * 4));
  2537. v_X_106 = ((LP) DEREF((v_X_104) + 0 * 4));
  2538. v_X_108 = ((LP) DEREF((v_X_106) + 1 * 4));
  2539. v_T23_110 = ((LP) DEREF((v_X_108) + 0 * 4));
  2540. v_S_111 = v_TABLE_3;
  2541. v_S_113 = v_TABLE_3;
  2542. v_I_114 = (LP) 2;
  2543. v_T24_116 = ((LP) DEREF((v_TABLE_3) + 1 * 4));
  2544. ICALL(s_lsp_SET_2DGETHASH) (3, v_T23_110, v_T24_116, v_ENTRY_68);
  2545. } else {
  2546. v_C_70 = v_TYPE_2DSPECIFIER_0;
  2547. v_X_72 = v_TYPE_2DSPECIFIER_0;
  2548. v_X_74 = ((LP) DEREF((v_TYPE_2DSPECIFIER_0) + 1 * 4));
  2549. v_X_76 = ((LP) DEREF((v_X_74) + 0 * 4));
  2550. v_X_78 = ((LP) DEREF((v_X_76) + 1 * 4));
  2551. t9 = ((LP) DEREF((v_X_78) + 0 * 4));
  2552. v_S_80 = v_TABLE_3;
  2553. v_S_82 = v_TABLE_3;
  2554. v_I_83 = (LP) 2;
  2555. t10 = ((LP) DEREF((v_TABLE_3) + 1 * 4));
  2556. ICALL(s_lsp_REMHASH) (2, t9, t10);
  2557. }
  2558. } else {
  2559. v_X_260 = v_KEY19_69;
  2560. v_Y_261 = LREF(s_xp_STRUCTURE_2DTYPE);
  2561. t11 = (c_eql((v_KEY19_69), (LREF(s_xp_STRUCTURE_2DTYPE))));
  2562. if (t11 != NIL) {
  2563. if (v_ENTRY_68 != NIL) {
  2564. t12 = MAKE_CLOSURE(p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon4849,t0);
  2565. v_S_122 = v_TABLE_3;
  2566. v_S_124 = v_TABLE_3;
  2567. v_I_125 = (LP) 6;
  2568. t13 = ((LP) DEREF((v_TABLE_3) + 3 * 4));
  2569. v_S25_127 = ICALL(s_lsp_COUNT_2DIF) (2, t12, t13);
  2570. v_T26_128 = v_ENTRY_68;
  2571. v_S_129 = v_ENTRY_68;
  2572. v_VALUE_130 = v_S25_127;
  2573. v_S_132 = v_ENTRY_68;
  2574. v_N_133 = (LP) 2;
  2575. v_VALUE_134 = v_S25_127;
  2576. ((LP) (DEREF((v_ENTRY_68) + 1 * 4) = (LD) (v_S25_127)));
  2577. v_S27_136 = v_ENTRY_68;
  2578. v_T28_137 = v_TYPE_2DSPECIFIER_0;
  2579. v_S_138 = v_TABLE_3;
  2580. v_S_140 = v_TABLE_3;
  2581. v_I_141 = (LP) 4;
  2582. v_T29_143 = ((LP) DEREF((v_TABLE_3) + 2 * 4));
  2583. ICALL(s_lsp_SET_2DGETHASH) (3, v_TYPE_2DSPECIFIER_0, v_T29_143, v_ENTRY_68);
  2584. } else {
  2585. v_S_117 = v_TABLE_3;
  2586. v_S_119 = v_TABLE_3;
  2587. v_I_120 = (LP) 4;
  2588. t14 = ((LP) DEREF((v_TABLE_3) + 2 * 4));
  2589. ICALL(s_lsp_REMHASH) (2, v_TYPE_2DSPECIFIER_0, t14);
  2590. }
  2591. } else {
  2592. v_S_144 = v_TABLE_3;
  2593. v_S_146 = v_TABLE_3;
  2594. v_I_147 = (LP) 6;
  2595. t15 = ((LP) DEREF((v_TABLE_3) + 3 * 4));
  2596. v_X_149 = LREF(s_lsp_EQUAL);
  2597. t16 = ((LP) DEREF((LREF(s_lsp_EQUAL)) + 4 * 4));
  2598. v_X_151 = ICALL(s_lsp_MEMBER_2F4) (4, v_TYPE_2DSPECIFIER_0, t15, t16, LREF(k53));
  2599. v_OLD_153 = ((LP) DEREF((v_X_151) + 0 * 4));
  2600. if (v_OLD_153 != NIL) {
  2601. v_S_167 = v_TABLE_3;
  2602. v_S_169 = v_TABLE_3;
  2603. v_I_170 = (LP) 6;
  2604. v_SEQUENCE_173 = ((LP) DEREF((v_TABLE_3) + 3 * 4));
  2605. v_X_158 = LREF(s_lsp_EQL);
  2606. v_TEST_175 = ((LP) DEREF((LREF(s_lsp_EQL)) + 4 * 4));
  2607. v_END_178 = LREF(s_lsp_NIL);
  2608. v_X_165 = LREF(s_lsp_IDENTITY);
  2609. v_KEY_180 = ((LP) DEREF((LREF(s_lsp_IDENTITY)) + 4 * 4));
  2610. v_END_178 = ICALL(s_lsp_LENGTH) (1, v_SEQUENCE_173);
  2611. t17 = ICALL(s_lsp_SEQ_2DTEST) (2, v_TEST_175, LREF(s_lsp_NIL));
  2612. v_S30_182 = ICALL(s_lsp_DELETE_2F8) (8, v_OLD_153, v_SEQUENCE_173, LREF(s_lsp_NIL), t17, (LP) 0, v_END_178, (LP) 2147483646, v_KEY_180);
  2613. v_T31_183 = v_TABLE_3;
  2614. v_S_184 = v_TABLE_3;
  2615. v_VALUE_185 = v_S30_182;
  2616. v_S_187 = v_TABLE_3;
  2617. v_N_188 = (LP) 6;
  2618. v_VALUE_189 = v_S30_182;
  2619. ((LP) (DEREF((v_TABLE_3) + 3 * 4) = (LD) (v_S30_182)));
  2620. v_S_191 = v_OLD_153;
  2621. v_S_193 = v_OLD_153;
  2622. v_I_194 = (LP) 6;
  2623. v_X_196 = ((LP) DEREF((v_OLD_153) + 3 * 4));
  2624. t18 = ((LP) DEREF((v_X_196) + 0 * 4));
  2625. ICALL(s_xp_ADJUST_2DCOUNTS) (3, v_TABLE_3, t18, (LP) -2);
  2626. } else {
  2627. }
  2628. if (v_ENTRY_68 != NIL) {
  2629. v_S_198 = v_TABLE_3;
  2630. v_S_200 = v_TABLE_3;
  2631. v_I_201 = (LP) 6;
  2632. v_Y_204 = ((LP) DEREF((v_TABLE_3) + 3 * 4));
  2633. v_OTHERS_206 = (c_cons((LREF(s_lsp_NIL)), (v_Y_204)));
  2634. v_L_208 = v_OTHERS_206;
  2635. goto t_TEST32_210;
  2636. t_LOOP33_209:;
  2637. v_X_211 = v_L_208;
  2638. v_TMP34_213 = ((LP) DEREF((v_X_211) + 1 * 4));
  2639. v_L_208 = v_TMP34_213;
  2640. t_TEST32_210:;
  2641. v_X_223 = v_L_208;
  2642. t19 = ((LP) DEREF((v_X_223) + 1 * 4));
  2643. if (t19 == NIL) {
  2644. v_C_217 = v_L_208;
  2645. v_X_214 = v_ENTRY_68;
  2646. v_Y_215 = LREF(s_lsp_NIL);
  2647. v_NEW_2DCDR_218 = (c_cons((v_ENTRY_68), (LREF(s_lsp_NIL))));
  2648. v_V_221 = v_NEW_2DCDR_218;
  2649. ((LP) (DEREF((v_C_217) + 1 * 4) = (LD) (v_V_221)));
  2650. goto b_NIL_207;
  2651. }
  2652. v_C_236 = v_L_208;
  2653. v_X_238 = v_C_236;
  2654. v_X_240 = ((LP) DEREF((v_C_236) + 1 * 4));
  2655. v_S_242 = ((LP) DEREF((v_X_240) + 0 * 4));
  2656. v_S_244 = v_S_242;
  2657. v_I_245 = (LP) 6;
  2658. v_X_247 = ((LP) DEREF((v_S_242) + 3 * 4));
  2659. t21 = ((LP) DEREF((v_X_247) + 0 * 4));
  2660. t20 = ICALL(s_xp_PRIORITY_2D_3E) (2, GET_OE_SLOT(t0,0), t21);
  2661. if (t20 != NIL) {
  2662. v_C_230 = v_L_208;
  2663. v_X_225 = v_L_208;
  2664. v_Y_228 = ((LP) DEREF((v_X_225) + 1 * 4));
  2665. v_NEW_2DCDR_231 = (c_cons((v_ENTRY_68), (v_Y_228)));
  2666. v_V_234 = v_NEW_2DCDR_231;
  2667. ((LP) (DEREF((v_C_230) + 1 * 4) = (LD) (v_V_234)));
  2668. goto b_NIL_207;
  2669. }
  2670. goto t_LOOP33_209;
  2671. b_NIL_207:;
  2672. v_X_249 = v_OTHERS_206;
  2673. v_S35_251 = ((LP) DEREF((v_OTHERS_206) + 1 * 4));
  2674. v_T36_252 = v_TABLE_3;
  2675. v_S_253 = v_TABLE_3;
  2676. v_VALUE_254 = v_S35_251;
  2677. v_S_256 = v_TABLE_3;
  2678. v_N_257 = (LP) 6;
  2679. v_VALUE_258 = v_S35_251;
  2680. ((LP) (DEREF((v_TABLE_3) + 3 * 4) = (LD) (v_S35_251)));
  2681. ICALL(s_xp_ADJUST_2DCOUNTS) (3, v_TABLE_3, GET_OE_SLOT(t0,0), (LP) 2);
  2682. } else {
  2683. }
  2684. }
  2685. }
  2686. return(LREF(s_lsp_NIL));
  2687. }
  2688.  
  2689. LP p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon5051(argc, v_E_0)
  2690.       ARGC argc;  LP v_E_0;
  2691. {
  2692. LP v_X_10; LP v_X_8; LP v_C_6; 
  2693. LP v_I_4; LP v_S_3; LP v_S_1; 
  2694.  
  2695. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2696. LP t6; LP t7; LP t8; LP t9; 
  2697. if (argc != 1) wna(argc,1);
  2698. v_S_1 = v_E_0;
  2699. v_S_3 = v_E_0;
  2700. v_I_4 = (LP) 6;
  2701. v_C_6 = ((LP) DEREF((v_E_0) + 3 * 4));
  2702. v_X_8 = v_C_6;
  2703. v_X_10 = ((LP) DEREF((v_C_6) + 1 * 4));
  2704. t0 = ((LP) DEREF((v_X_10) + 0 * 4));
  2705. return(t0);
  2706. }
  2707.  
  2708. LP p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon4849(argc, v_E_0)
  2709.       ARGC argc;  LP v_E_0;
  2710. {
  2711. LP v_X_6; LP v_I_4; LP v_S_3; 
  2712. LP v_S_1; 
  2713. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2714. LP t6; LP t7; LP t8; LP t9; 
  2715. if (argc != 1) wna(argc,1);
  2716. t0 = OE;
  2717. v_S_1 = v_E_0;
  2718. v_S_3 = v_E_0;
  2719. v_I_4 = (LP) 6;
  2720. v_X_6 = ((LP) DEREF((v_E_0) + 3 * 4));
  2721. t2 = ((LP) DEREF((v_X_6) + 0 * 4));
  2722. t1 = ICALL(s_xp_PRIORITY_2D_3E) (MV_CALL(argc,2), t2, GET_OE_SLOT(t0,0));
  2723. return(t1);
  2724. }
  2725.  
  2726. LP p_xp_SET_2DPPRINT_2DDISPATCH_2B_2Danon4647(argc, v_E_0)
  2727.       ARGC argc;  LP v_E_0;
  2728. {
  2729. LP v_X_6; LP v_I_4; LP v_S_3; 
  2730. LP v_S_1; 
  2731. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2732. LP t6; LP t7; LP t8; LP t9; 
  2733. if (argc != 1) wna(argc,1);
  2734. t0 = OE;
  2735. v_S_1 = v_E_0;
  2736. v_S_3 = v_E_0;
  2737. v_I_4 = (LP) 6;
  2738. v_X_6 = ((LP) DEREF((v_E_0) + 3 * 4));
  2739. t2 = ((LP) DEREF((v_X_6) + 0 * 4));
  2740. t1 = ICALL(s_xp_PRIORITY_2D_3E) (MV_CALL(argc,2), t2, GET_OE_SLOT(t0,0));
  2741. return(t1);
  2742. }
  2743.  
  2744. LP p_xp_PRIORITY_2D_3E(argc, v_X_0, v_Y_1)
  2745.       ARGC argc;  LP v_X_0; LP v_Y_1;
  2746. {
  2747. LP v_X_11; LP v_X_9; LP v_X_7; 
  2748. LP v_X_5; LP v_X_3; 
  2749. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2750. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2751. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2752. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  2753.  
  2754. if (argc != 2) wna(argc,2);
  2755. v_X_11 = v_X_0;
  2756. if (OTHER_PTRP((v_X_0)) && (TAG((v_X_0)) == 15)) {
  2757. v_X_7 = v_Y_1;
  2758. if (OTHER_PTRP((v_Y_1)) && (TAG((v_Y_1)) == 15)) {
  2759. v_X_3 = v_X_0;
  2760. t3 = ((LP) DEREF((v_X_0) + 0 * 4));
  2761. v_X_5 = v_Y_1;
  2762. t4 = ((LP) DEREF((v_Y_1) + 0 * 4));
  2763. t0 = (greaterp((t3), (t4)));
  2764. return(t0);
  2765. } else {
  2766. return(LREF(s_lsp_NIL));
  2767. }
  2768. } else {
  2769. v_X_9 = v_Y_1;
  2770. if (OTHER_PTRP((v_Y_1)) && (TAG((v_Y_1)) == 15)) {
  2771. return(LREF(s_lsp_T));
  2772. } else {
  2773. t0 = (greaterp((v_X_0), (v_Y_1)));
  2774. return(t0);
  2775. }
  2776. }
  2777. }
  2778.  
  2779. LP p_xp_ADJUST_2DCOUNTS(argc, v_TABLE_0, v_PRIORITY_1, v_DELTA_2)
  2780.       ARGC argc;  LP v_TABLE_0; LP v_PRIORITY_1; LP v_DELTA_2;
  2781. {
  2782. LP v_I_12; LP v_S_11; LP v_S_9; 
  2783. LP v_I_7; LP v_S_6; LP v_S_4; 
  2784.  
  2785. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2786. LP t6; LP t7; LP t8; LP t9; LP t10; 
  2787. if (argc != 3) wna(argc,3);
  2788. t0 = NEW_OE(2);
  2789. SET_OE_SLOT(t0,0,v_PRIORITY_1);
  2790. SET_OE_SLOT(t0,1,v_DELTA_2);
  2791. t1 = MAKE_CLOSURE(p_xp_ADJUST_2DCOUNTS_2Danon5455,t0);
  2792. v_S_4 = v_TABLE_0;
  2793. v_S_6 = v_TABLE_0;
  2794. v_I_7 = (LP) 2;
  2795. t2 = ((LP) DEREF((v_TABLE_0) + 1 * 4));
  2796. ICALL(s_lsp_MAPHASH) (2, t1, t2);
  2797. t4 = MAKE_CLOSURE(p_xp_ADJUST_2DCOUNTS_2Danon5657,t0);
  2798. v_S_9 = v_TABLE_0;
  2799. v_S_11 = v_TABLE_0;
  2800. v_I_12 = (LP) 4;
  2801. t5 = ((LP) DEREF((v_TABLE_0) + 2 * 4));
  2802. t3 = ICALL(s_lsp_MAPHASH) (MV_CALL(argc,2), t4, t5);
  2803. return(t3);
  2804. }
  2805.  
  2806. LP p_xp_ADJUST_2DCOUNTS_2Danon5657(argc, v_KEY_0, v_VALUE_1)
  2807.       ARGC argc;  LP v_KEY_0; LP v_VALUE_1;
  2808. {
  2809. LP v_X_21; LP v_I_19; LP v_S_18; 
  2810. LP v_S_16; LP v_VALUE_14; LP v_N_13; 
  2811. LP v_S_12; LP v_VALUE_10; LP v_S_9; 
  2812. LP v_T40_8; LP v_S39_7; LP v_I_5; 
  2813. LP v_S_4; LP v_S_2; 
  2814. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2815. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2816. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2817.  
  2818. if (argc != 2) wna(argc,2);
  2819. t0 = OE;
  2820. v_S_16 = v_VALUE_1;
  2821. v_S_18 = v_VALUE_1;
  2822. v_I_19 = (LP) 6;
  2823. v_X_21 = ((LP) DEREF((v_VALUE_1) + 3 * 4));
  2824. t3 = ((LP) DEREF((v_X_21) + 0 * 4));
  2825. t2 = ICALL(s_xp_PRIORITY_2D_3E) (2, GET_OE_SLOT(t0,0), t3);
  2826. if (t2 != NIL) {
  2827. v_S_2 = v_VALUE_1;
  2828. v_S_4 = v_VALUE_1;
  2829. v_I_5 = (LP) 2;
  2830. t4 = ((LP) DEREF((v_VALUE_1) + 1 * 4));
  2831. v_S39_7 = (add((t4), (GET_OE_SLOT(t0,1))));
  2832. v_T40_8 = v_VALUE_1;
  2833. v_S_9 = v_VALUE_1;
  2834. v_VALUE_10 = v_S39_7;
  2835. v_S_12 = v_VALUE_1;
  2836. v_N_13 = (LP) 2;
  2837. v_VALUE_14 = v_S39_7;
  2838. t1 = ((LP) (DEREF((v_VALUE_1) + 1 * 4) = (LD) (v_S39_7)));
  2839. return(t1);
  2840. } else {
  2841. return(LREF(s_lsp_NIL));
  2842. }
  2843. }
  2844.  
  2845. LP p_xp_ADJUST_2DCOUNTS_2Danon5455(argc, v_KEY_0, v_VALUE_1)
  2846.       ARGC argc;  LP v_KEY_0; LP v_VALUE_1;
  2847. {
  2848. LP v_X_21; LP v_I_19; LP v_S_18; 
  2849. LP v_S_16; LP v_VALUE_14; LP v_N_13; 
  2850. LP v_S_12; LP v_VALUE_10; LP v_S_9; 
  2851. LP v_T38_8; LP v_S37_7; LP v_I_5; 
  2852. LP v_S_4; LP v_S_2; 
  2853. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2854. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2855. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2856.  
  2857. if (argc != 2) wna(argc,2);
  2858. t0 = OE;
  2859. v_S_16 = v_VALUE_1;
  2860. v_S_18 = v_VALUE_1;
  2861. v_I_19 = (LP) 6;
  2862. v_X_21 = ((LP) DEREF((v_VALUE_1) + 3 * 4));
  2863. t3 = ((LP) DEREF((v_X_21) + 0 * 4));
  2864. t2 = ICALL(s_xp_PRIORITY_2D_3E) (2, GET_OE_SLOT(t0,0), t3);
  2865. if (t2 != NIL) {
  2866. v_S_2 = v_VALUE_1;
  2867. v_S_4 = v_VALUE_1;
  2868. v_I_5 = (LP) 2;
  2869. t4 = ((LP) DEREF((v_VALUE_1) + 1 * 4));
  2870. v_S37_7 = (add((t4), (GET_OE_SLOT(t0,1))));
  2871. v_T38_8 = v_VALUE_1;
  2872. v_S_9 = v_VALUE_1;
  2873. v_VALUE_10 = v_S37_7;
  2874. v_S_12 = v_VALUE_1;
  2875. v_N_13 = (LP) 2;
  2876. v_VALUE_14 = v_S37_7;
  2877. t1 = ((LP) (DEREF((v_VALUE_1) + 1 * 4) = (LD) (v_S37_7)));
  2878. return(t1);
  2879. } else {
  2880. return(LREF(s_lsp_NIL));
  2881. }
  2882. }
  2883.  
  2884. LP p_xp_PPRINT_2DDISPATCH(va_alist) va_dcl
  2885. {
  2886. LP v_Y_19; LP v_X_18; LP v_X_16; 
  2887. LP v_Y_14; LP v_X_13; LP v_X_11; 
  2888. LP v_X_9; LP v_G41_8; LP v_FN_7; 
  2889. LP v_SYMBOL_5; LP v_OBJECT_0; LP v_SYMBOL_2; 
  2890. LP v_TABLE_1; 
  2891. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2892. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2893. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2894. LP t18; LP t19; 
  2895. int real_argc;
  2896. ARGC argc;
  2897. BEGIN_NON_ANSI_VAR_ARGS;
  2898. argc = (ARGC) NEXT_VAR_ARG;
  2899. v_OBJECT_0 = NEXT_VAR_ARG;
  2900.  
  2901.  
  2902. real_argc = REAL_ARGC(argc);
  2903. if (real_argc < 1) wna_low(real_argc,1);
  2904. if (real_argc > 2) wna_high(real_argc,2);
  2905. if (real_argc < 2) {
  2906. v_SYMBOL_2 = LREF(s_xp__2APRINT_2DPPRINT_2DDISPATCH_2A);
  2907. t0 = ((LP) DEREF((v_SYMBOL_2) + 0 * 4));
  2908. v_TABLE_1 = t0;
  2909. } else {
  2910. v_TABLE_1 = NEXT_VAR_ARG;
  2911. }
  2912. END_VAR_ARGS;
  2913. if (v_TABLE_1 == NIL) {
  2914. v_SYMBOL_5 = LREF(s_xp__2AIPD_2A);
  2915. v_TABLE_1 = ((LP) DEREF((LREF(s_xp__2AIPD_2A)) + 0 * 4));
  2916. }
  2917. v_FN_7 = ICALL(s_xp_GET_2DPRINTER) (2, v_OBJECT_0, v_TABLE_1);
  2918. v_G41_8 = v_FN_7;
  2919. if (v_G41_8 != NIL) {
  2920. t1 = v_G41_8;
  2921. } else {
  2922. v_X_9 = LREF(s_xp_NON_2DPRETTY_2DPRINT);
  2923. t1 = ((LP) DEREF((LREF(s_xp_NON_2DPRETTY_2DPRINT)) + 4 * 4));
  2924. }
  2925. v_X_11 = v_FN_7;
  2926. v_X_13 = v_FN_7;
  2927. v_Y_14 = LREF(s_lsp_NIL);
  2928. v_X_16 = (((v_FN_7) == (LREF(s_lsp_NIL))) ? T : NIL);
  2929. v_X_18 = v_X_16;
  2930. v_Y_19 = LREF(s_lsp_NIL);
  2931. t2 = (((v_X_16) == (LREF(s_lsp_NIL))) ? T : NIL);
  2932. if (MV_HOLDER_P(argc)) {
  2933. SET_MV_RETURN_FLAG(argc);
  2934. SET_MV_RETURN_COUNT(argc,2);
  2935. SET_MV_RETURN_VALUE(argc,1,t2);
  2936. }
  2937. return(t1);
  2938. }
  2939.  
  2940. LP p_xp_GET_2DPRINTER(argc, v_OBJECT_0, v_TABLE_1)
  2941.       ARGC argc;  LP v_OBJECT_0; LP v_TABLE_1;
  2942. {
  2943. LP v_I_55; LP v_S_54; LP v_S_52; 
  2944. LP v_X_50; LP v_X_48; LP v_N_46; 
  2945. LP v_TMP45_45; LP v_TMP44_44; LP v_X_42; 
  2946. LP v_X_40; LP v_L_37; LP v_I_36; 
  2947. LP v_I_34; LP v_S_33; LP v_S_31; 
  2948. LP v_I_29; LP v_S_28; LP v_S_26; 
  2949. LP v_X_23; LP v_I_21; LP v_S_20; 
  2950. LP v_S_18; LP v_ENTRY_17; LP v_X_15; 
  2951. LP v_I_13; LP v_S_12; LP v_S_10; 
  2952. LP v_I_8; LP v_S_7; LP v_S_5; 
  2953. LP v_X_3; 
  2954. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  2955. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  2956. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  2957. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  2958. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  2959. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  2960. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  2961. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  2962. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  2963.  
  2964. if (argc != 2) wna(argc,2);
  2965. v_X_15 = v_OBJECT_0;
  2966. if (OTHER_PTRP((v_OBJECT_0)) && (TAG((v_OBJECT_0)) == 15)) {
  2967. v_X_3 = v_OBJECT_0;
  2968. t1 = ((LP) DEREF((v_OBJECT_0) + 0 * 4));
  2969. v_S_5 = v_TABLE_1;
  2970. v_S_7 = v_TABLE_1;
  2971. v_I_8 = (LP) 2;
  2972. t2 = ((LP) DEREF((v_TABLE_1) + 1 * 4));
  2973. v_ENTRY_17 = ICALL(s_lsp_GETHASH) (2, t1, t2);
  2974. } else {
  2975. t3 = ICALL(s_lsp_TYPE_2DOF) (1, v_OBJECT_0);
  2976. v_S_10 = v_TABLE_1;
  2977. v_S_12 = v_TABLE_1;
  2978. v_I_13 = (LP) 4;
  2979. t4 = ((LP) DEREF((v_TABLE_1) + 2 * 4));
  2980. v_ENTRY_17 = ICALL(s_lsp_GETHASH) (2, t3, t4);
  2981. }
  2982. if (v_ENTRY_17 != NIL) {
  2983. v_S_26 = v_ENTRY_17;
  2984. v_S_28 = v_S_26;
  2985. v_I_29 = (LP) 2;
  2986. v_I_36 = ((LP) DEREF((v_S_26) + 1 * 4));
  2987. v_S_31 = v_TABLE_1;
  2988. v_S_33 = v_TABLE_1;
  2989. v_I_34 = (LP) 6;
  2990. v_L_37 = ((LP) DEREF((v_TABLE_1) + 3 * 4));
  2991. goto t_TEST42_39;
  2992. t_LOOP43_38:;
  2993. v_X_40 = v_I_36;
  2994. v_TMP44_44 = (subtract((v_X_40), ((LP) 2)));
  2995. v_X_42 = v_L_37;
  2996. v_TMP45_45 = ((LP) DEREF((v_X_42) + 1 * 4));
  2997. v_I_36 = v_TMP44_44;
  2998. v_L_37 = v_TMP45_45;
  2999. t_TEST42_39:;
  3000. v_N_46 = v_I_36;
  3001. if (((int) (v_N_46) == (int) ((LP) 0))) {
  3002. goto b_NIL_25;
  3003. }
  3004. v_X_50 = v_L_37;
  3005. t7 = ((LP) DEREF((v_X_50) + 0 * 4));
  3006. t6 = ICALL(s_xp_FITS) (2, v_OBJECT_0, t7);
  3007. if (t6 != NIL) {
  3008. v_X_48 = v_L_37;
  3009. v_ENTRY_17 = ((LP) DEREF((v_X_48) + 0 * 4));
  3010. goto b_NIL_25;
  3011. }
  3012. goto t_LOOP43_38;
  3013. b_NIL_25:;
  3014. } else {
  3015. v_S_18 = v_TABLE_1;
  3016. v_S_20 = v_TABLE_1;
  3017. v_I_21 = (LP) 6;
  3018. t8 = ((LP) DEREF((v_TABLE_1) + 3 * 4));
  3019. v_X_23 = LREF(s_xp_FITS);
  3020. t9 = ((LP) DEREF((LREF(s_xp_FITS)) + 4 * 4));
  3021. v_ENTRY_17 = ICALL(s_lsp_FIND) (4, v_OBJECT_0, t8, LREF(s_key_TEST), t9);
  3022. }
  3023. if (v_ENTRY_17 != NIL) {
  3024. v_S_52 = v_ENTRY_17;
  3025. v_S_54 = v_S_52;
  3026. v_I_55 = (LP) 4;
  3027. t10 = ((LP) DEREF((v_S_52) + 2 * 4));
  3028. return(t10);
  3029. } else {
  3030. return(LREF(s_lsp_NIL));
  3031. }
  3032. }
  3033.  
  3034. LP p_xp_FITS(argc, v_OBJ_0, v_ENTRY_1)
  3035.       ARGC argc;  LP v_OBJ_0; LP v_ENTRY_1;
  3036. {
  3037. LP v_I_6; LP v_S_5; LP v_S_3; 
  3038.  
  3039. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3040. LP t6; LP t7; 
  3041. if (argc != 2) wna(argc,2);
  3042. v_S_3 = v_ENTRY_1;
  3043. v_S_5 = v_ENTRY_1;
  3044. v_I_6 = (LP) 2;
  3045. t1 = ((LP) DEREF((v_ENTRY_1) + 1 * 4));
  3046. t0 = CODE_PTR(COERCE_TO_FUNCTION(t1))(MV_CALL(argc,1), v_OBJ_0);
  3047. return(t0);
  3048. }
  3049.  
  3050. LP p_xp_SPECIFIER_2DCATEGORY(argc, v_SPEC_0)
  3051.       ARGC argc;  LP v_SPEC_0;
  3052. {
  3053. LP v_X_63; LP v_Y_61; LP v_X_60; 
  3054. LP v_X_58; LP v_X_56; LP v_X_54; 
  3055. LP v_X_52; LP v_X_50; LP v_C_48; 
  3056. LP v_X_46; LP v_X_44; LP v_X_42; 
  3057. LP v_C_40; LP v_Y_38; LP v_X_37; 
  3058. LP v_X_35; LP v_X_33; LP v_X_31; 
  3059. LP v_C_29; LP v_X_27; LP v_X_25; 
  3060. LP v_X_23; LP v_X_21; LP v_C_19; 
  3061. LP v_Y_17; LP v_X_16; LP v_X_14; 
  3062. LP v_X_12; LP v_X_10; LP v_X_8; 
  3063. LP v_X_6; LP v_C_4; LP v_S_2; 
  3064.  
  3065. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3066. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  3067. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  3068. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  3069. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  3070. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  3071. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  3072. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  3073. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  3074. LP t54; LP t55; LP t56; LP t57; LP t58; LP t59; 
  3075. LP t60; LP t61; LP t62; LP t63; LP t64; LP t65; 
  3076. LP t66; LP t67; LP t68; LP t69; LP t70; LP t71; 
  3077. LP t72; LP t73; LP t74; LP t75; LP t76; LP t77; 
  3078. LP t78; LP t79; LP t80; LP t81; LP t82; LP t83; 
  3079. LP t84; LP t85; LP t86; LP t87; 
  3080. if (argc != 1) wna(argc,1);
  3081. v_X_63 = v_SPEC_0;
  3082. if (OTHER_PTRP((v_SPEC_0)) && (TAG((v_SPEC_0)) == 15)) {
  3083. v_X_58 = v_SPEC_0;
  3084. v_X_60 = ((LP) DEREF((v_SPEC_0) + 0 * 4));
  3085. if (((v_X_60) == (LREF(s_lsp_CONS)))) {
  3086. v_X_54 = v_SPEC_0;
  3087. v_X_56 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3088. if (OTHER_PTRP((v_X_56)) && (TAG((v_X_56)) == 15)) {
  3089. v_C_48 = v_SPEC_0;
  3090. v_X_50 = v_SPEC_0;
  3091. v_X_52 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3092. t5 = ((LP) DEREF((v_X_52) + 1 * 4));
  3093. if (t5 != NIL) {
  3094. t1 = LREF(s_lsp_NIL);
  3095. } else {
  3096. v_C_40 = v_SPEC_0;
  3097. v_X_42 = v_SPEC_0;
  3098. v_X_44 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3099. v_X_46 = ((LP) DEREF((v_X_44) + 0 * 4));
  3100. if (OTHER_PTRP((v_X_46)) && (TAG((v_X_46)) == 15)) {
  3101. v_C_29 = v_SPEC_0;
  3102. v_X_31 = v_SPEC_0;
  3103. v_X_33 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3104. v_X_35 = ((LP) DEREF((v_X_33) + 0 * 4));
  3105. v_X_37 = ((LP) DEREF((v_X_35) + 0 * 4));
  3106. if (((v_X_37) == (LREF(s_lsp_MEMBER)))) {
  3107. v_C_19 = v_SPEC_0;
  3108. v_X_21 = v_SPEC_0;
  3109. v_X_23 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3110. v_X_25 = ((LP) DEREF((v_X_23) + 0 * 4));
  3111. v_X_27 = ((LP) DEREF((v_X_25) + 1 * 4));
  3112. if (OTHER_PTRP((v_X_27)) && (TAG((v_X_27)) == 15)) {
  3113. v_C_4 = v_SPEC_0;
  3114. v_X_6 = v_SPEC_0;
  3115. v_X_8 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3116. v_X_10 = ((LP) DEREF((v_X_8) + 0 * 4));
  3117. v_X_12 = ((LP) DEREF((v_X_10) + 1 * 4));
  3118. v_X_14 = ((LP) DEREF((v_X_12) + 1 * 4));
  3119. v_X_16 = v_X_14;
  3120. v_Y_17 = LREF(s_lsp_NIL);
  3121. t1 = (((v_X_14) == (LREF(s_lsp_NIL))) ? T : NIL);
  3122. } else {
  3123. t1 = LREF(s_lsp_NIL);
  3124. }
  3125. } else {
  3126. t1 = LREF(s_lsp_NIL);
  3127. }
  3128. } else {
  3129. t1 = LREF(s_lsp_NIL);
  3130. }
  3131. }
  3132. } else {
  3133. t1 = LREF(s_lsp_NIL);
  3134. }
  3135. } else {
  3136. t1 = LREF(s_lsp_NIL);
  3137. }
  3138. } else {
  3139. t1 = LREF(s_lsp_NIL);
  3140. }
  3141. if (t1 != NIL) {
  3142. return(LREF(s_xp_CONS_2DWITH_2DCAR));
  3143. } else {
  3144. v_S_2 = v_SPEC_0;
  3145. if (OTHER_PTRP((v_SPEC_0)) && (TAG((v_SPEC_0)) == 3)) {
  3146. t9 = ICALL(s_xp_STRUCTURE_2DTYPE_2DP) (1, v_SPEC_0);
  3147. } else {
  3148. t9 = LREF(s_lsp_NIL);
  3149. }
  3150. if (t9 != NIL) {
  3151. return(LREF(s_xp_STRUCTURE_2DTYPE));
  3152. } else {
  3153. return(LREF(s_xp_OTHER));
  3154. }
  3155. }
  3156. }
  3157.  
  3158. LP p_xp_ALWAYS_2DTRUE(argc, v_X_0)
  3159.       ARGC argc;  LP v_X_0;
  3160. {
  3161.  
  3162. LP t0; 
  3163. if (argc != 1) wna(argc,1);
  3164. return(LREF(s_lsp_T));
  3165. }
  3166.  
  3167. LP p_xp_SPECIFIER_2DFN(argc, v_SPEC_0)
  3168.       ARGC argc;  LP v_SPEC_0;
  3169. {
  3170. LP v_Y_9; LP v_X_8; LP v_Y_6; 
  3171. LP v_X_5; LP v_Y_3; LP v_X_2; 
  3172.  
  3173. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3174. LP t6; LP t7; LP t8; LP t9; LP t10; 
  3175. if (argc != 1) wna(argc,1);
  3176. v_X_2 = ICALL(s_xp_CONVERT_2DBODY) (1, v_SPEC_0);
  3177. v_Y_6 = (c_cons((v_X_2), (LREF(s_lsp_NIL))));
  3178. v_Y_9 = (c_cons((LREF(k52)), (v_Y_6)));
  3179. t0 = (c_cons((LREF(s_lsp_LAMBDA)), (v_Y_9)));
  3180. return(t0);
  3181. }
  3182.  
  3183. LP p_xp_CONVERT_2DBODY(argc, v_SPEC_0)
  3184.       ARGC argc;  LP v_SPEC_0;
  3185. {
  3186. LP v_Y_173; LP v_X_172; LP v_X_170; 
  3187. LP v_X_168; LP v_X_166; LP v_X_164; 
  3188. LP v_Y_162; LP v_X_161; LP v_X_159; 
  3189. LP v_Y_157; LP v_X_156; LP v_X_154; 
  3190. LP v_Y_152; LP v_X_151; LP v_X_149; 
  3191. LP v_Y_147; LP v_X_146; LP v_Y_144; 
  3192. LP v_X_143; LP v_Y_141; LP v_X_140; 
  3193. LP v_Y_138; LP v_X_137; LP v_Y_135; 
  3194. LP v_X_134; LP v_Y_132; LP v_X_131; 
  3195. LP v_Y_129; LP v_X_128; LP v_X_126; 
  3196. LP v_X_124; LP v_C_122; LP v_X_120; 
  3197. LP v_X_118; LP v_C_116; LP v_Y_114; 
  3198. LP v_X_113; LP v_Y_111; LP v_X_110; 
  3199. LP v_Y_108; LP v_X_107; LP v_Y_105; 
  3200. LP v_X_104; LP v_X_102; LP v_X_100; 
  3201. LP v_X_98; LP v_C_96; LP v_X_94; 
  3202. LP v_Y_92; LP v_X_91; LP v_Y_89; 
  3203. LP v_X_88; LP v_Y_86; LP v_X_85; 
  3204. LP v_Y_83; LP v_X_82; LP v_X_80; 
  3205. LP v_X_78; LP v_C_76; LP v_Y_74; 
  3206. LP v_X_73; LP v_Y_71; LP v_X_70; 
  3207. LP v_Y_68; LP v_X_67; LP v_Y_65; 
  3208. LP v_X_64; LP v_Y_62; LP v_X_61; 
  3209. LP v_X_59; LP v_Y_57; LP v_X_56; 
  3210. LP v_X_54; LP v_V_52; LP v_X_51; 
  3211. LP v_NEW_2DCDR_49; LP v_C_48; LP v_Y_46; 
  3212. LP v_X_45; LP v_X_43; LP v_X_41; 
  3213. LP v_LOOPVAR_2D8_37; LP v_LOOPVAR_2D7_36; LP v_LOOPVAR_2D6_35; 
  3214. LP v_LOOP_2DLIST_2D5_34; LP v_L46_33; LP v_X_31; 
  3215. LP v_X_29; LP v_Y_27; LP v_X_26; 
  3216. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  3217. LP v_X_20; LP v_Y_18; LP v_X_17; 
  3218. LP v_Y_15; LP v_X_14; LP v_Y_12; 
  3219. LP v_X_11; LP v_PRED_10; LP v_X_8; 
  3220. LP v_X_6; LP v_C_4; LP v_SYMBOL_2; 
  3221.  
  3222. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3223. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  3224. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  3225. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  3226. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  3227. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  3228. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  3229. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  3230. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  3231. LP t54; LP t55; LP t56; LP t57; LP t58; LP t59; 
  3232. LP t60; LP t61; LP t62; LP t63; LP t64; LP t65; 
  3233. LP t66; LP t67; LP t68; LP t69; LP t70; LP t71; 
  3234. LP t72; LP t73; LP t74; LP t75; LP t76; LP t77; 
  3235. LP t78; LP t79; LP t80; LP t81; LP t82; LP t83; 
  3236. LP t84; LP t85; LP t86; LP t87; LP t88; LP t89; 
  3237. LP t90; LP t91; LP t92; LP t93; LP t94; LP t95; 
  3238. LP t96; LP t97; LP t98; LP t99; LP t100; LP t101; 
  3239. LP t102; LP t103; LP t104; LP t105; LP t106; LP t107; 
  3240. LP t108; LP t109; LP t110; LP t111; LP t112; LP t113; 
  3241. LP t114; LP t115; LP t116; LP t117; LP t118; LP t119; 
  3242. LP t120; LP t121; LP t122; LP t123; LP t124; LP t125; 
  3243. LP t126; LP t127; LP t128; LP t129; LP t130; LP t131; 
  3244. LP t132; LP t133; LP t134; LP t135; LP t136; LP t137; 
  3245. LP t138; LP t139; LP t140; LP t141; LP t142; LP t143; 
  3246. LP t144; LP t145; LP t146; LP t147; LP t148; LP t149; 
  3247. LP t150; LP t151; LP t152; LP t153; LP t154; LP t155; 
  3248. LP t156; LP t157; LP t158; LP t159; LP t160; LP t161; 
  3249. LP t162; LP t163; LP t164; LP t165; LP t166; LP t167; 
  3250. LP t168; LP t169; LP t170; LP t171; LP t172; LP t173; 
  3251. LP t174; LP t175; LP t176; LP t177; LP t178; LP t179; 
  3252. LP t180; LP t181; LP t182; LP t183; LP t184; LP t185; 
  3253. LP t186; LP t187; LP t188; LP t189; LP t190; LP t191; 
  3254. LP t192; LP t193; LP t194; LP t195; LP t196; LP t197; 
  3255. LP t198; LP t199; 
  3256. if (argc != 1) wna(argc,1);
  3257. v_X_166 = v_SPEC_0;
  3258. v_X_168 = v_SPEC_0;
  3259. v_X_170 = (OTHER_PTRP((v_SPEC_0)) && (TAG((v_SPEC_0)) == 15) ? T : NIL);
  3260. v_X_172 = v_X_170;
  3261. v_Y_173 = LREF(s_lsp_NIL);
  3262. if (v_X_170 != NIL) {
  3263. v_X_164 = v_SPEC_0;
  3264. t2 = ((LP) DEREF((v_SPEC_0) + 0 * 4));
  3265. t1 = ICALL(s_lsp_MEMQL) (2, t2, LREF(k58));
  3266. if (t1 != NIL) {
  3267. v_X_29 = v_SPEC_0;
  3268. v_X_56 = ((LP) DEREF((v_SPEC_0) + 0 * 4));
  3269. v_L46_33 = LREF(s_lsp_NIL);
  3270. v_X_31 = v_SPEC_0;
  3271. v_LOOP_2DLIST_2D5_34 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3272. v_LOOPVAR_2D6_35 = LREF(s_lsp_NIL);
  3273. v_LOOPVAR_2D7_36 = LREF(s_lsp_NIL);
  3274. v_LOOPVAR_2D8_37 = LREF(s_lsp_NIL);
  3275. t_NEXT_2DLOOP_39:;
  3276. if (v_LOOP_2DLIST_2D5_34 == NIL) {
  3277. goto t_END_2DLOOP_40;
  3278. }
  3279. v_X_41 = v_LOOP_2DLIST_2D5_34;
  3280. v_L46_33 = ((LP) DEREF((v_X_41) + 0 * 4));
  3281. v_X_43 = v_LOOP_2DLIST_2D5_34;
  3282. v_LOOP_2DLIST_2D5_34 = ((LP) DEREF((v_X_43) + 1 * 4));
  3283. v_X_45 = ICALL(s_xp_CONVERT_2DBODY) (1, v_L46_33);
  3284. v_LOOPVAR_2D8_37 = (c_cons((v_X_45), (LREF(s_lsp_NIL))));
  3285. if (v_LOOPVAR_2D7_36 != NIL) {
  3286. v_C_48 = v_LOOPVAR_2D7_36;
  3287. v_NEW_2DCDR_49 = v_LOOPVAR_2D8_37;
  3288. v_V_52 = v_NEW_2DCDR_49;
  3289. ((LP) (DEREF((v_C_48) + 1 * 4) = (LD) (v_V_52)));
  3290. v_X_54 = v_C_48;
  3291. v_LOOPVAR_2D7_36 = ((LP) DEREF((v_X_54) + 1 * 4));
  3292. } else {
  3293. v_LOOPVAR_2D6_35 = v_LOOPVAR_2D8_37;
  3294. v_LOOPVAR_2D7_36 = v_LOOPVAR_2D6_35;
  3295. }
  3296. goto t_NEXT_2DLOOP_39;
  3297. goto t_END_2DLOOP_40;
  3298. t_END_2DLOOP_40:;
  3299. v_Y_57 = v_LOOPVAR_2D6_35;
  3300. goto b_NIL_38;
  3301. v_Y_57 = NIL;
  3302. v_Y_57 = v_Y_57;
  3303. b_NIL_38:;
  3304. t0 = (c_cons((v_X_56), (v_Y_57)));
  3305. return(t0);
  3306. } else {
  3307. v_X_159 = v_SPEC_0;
  3308. v_X_161 = ((LP) DEREF((v_SPEC_0) + 0 * 4));
  3309. if (((v_X_161) == (LREF(s_lsp_MEMBER)))) {
  3310. v_X_59 = v_SPEC_0;
  3311. t4 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3312. v_X_61 = ICALL(s_lsp_COPY_2DLIST) (1, t4);
  3313. v_Y_65 = (c_cons((v_X_61), (LREF(s_lsp_NIL))));
  3314. v_X_67 = (c_cons((LREF(s_lsp_QUOTE)), (v_Y_65)));
  3315. v_Y_71 = (c_cons((v_X_67), (LREF(s_lsp_NIL))));
  3316. v_Y_74 = (c_cons((LREF(s_xp_X)), (v_Y_71)));
  3317. t0 = (c_cons((LREF(s_lsp_MEMBER)), (v_Y_74)));
  3318. return(t0);
  3319. } else {
  3320. v_X_154 = v_SPEC_0;
  3321. v_X_156 = ((LP) DEREF((v_SPEC_0) + 0 * 4));
  3322. if (((v_X_156) == (LREF(s_lsp_CONS)))) {
  3323. v_X_94 = v_SPEC_0;
  3324. t8 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3325. if (t8 != NIL) {
  3326. v_C_76 = v_SPEC_0;
  3327. v_X_78 = v_SPEC_0;
  3328. v_X_80 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3329. t9 = ((LP) DEREF((v_X_80) + 0 * 4));
  3330. v_X_82 = ICALL(s_xp_CONVERT_2DBODY) (1, t9);
  3331. v_Y_86 = (c_cons((v_X_82), (LREF(s_lsp_NIL))));
  3332. v_Y_89 = (c_cons((LREF(k62)), (v_Y_86)));
  3333. v_X_91 = (c_cons((LREF(s_lsp_LET)), (v_Y_89)));
  3334. t7 = (c_cons((v_X_91), (LREF(s_lsp_NIL))));
  3335. } else {
  3336. t7 = LREF(s_lsp_NIL);
  3337. }
  3338. v_C_116 = v_SPEC_0;
  3339. v_X_118 = v_SPEC_0;
  3340. v_X_120 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3341. t11 = ((LP) DEREF((v_X_120) + 1 * 4));
  3342. if (t11 != NIL) {
  3343. v_C_96 = v_SPEC_0;
  3344. v_X_98 = v_SPEC_0;
  3345. v_X_100 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3346. v_X_102 = ((LP) DEREF((v_X_100) + 1 * 4));
  3347. t12 = ((LP) DEREF((v_X_102) + 0 * 4));
  3348. v_X_104 = ICALL(s_xp_CONVERT_2DBODY) (1, t12);
  3349. v_Y_108 = (c_cons((v_X_104), (LREF(s_lsp_NIL))));
  3350. v_Y_111 = (c_cons((LREF(k66)), (v_Y_108)));
  3351. v_X_113 = (c_cons((LREF(s_lsp_LET)), (v_Y_111)));
  3352. t10 = (c_cons((v_X_113), (LREF(s_lsp_NIL))));
  3353. } else {
  3354. t10 = LREF(s_lsp_NIL);
  3355. }
  3356. t6 = ICALL(s_lsp_APPEND_2F2) (2, t7, t10);
  3357. t0 = ICALL(s_lsp_LIST_2A) (MV_CALL(argc,3), LREF(s_lsp_AND), LREF(k61), t6);
  3358. return(t0);
  3359. } else {
  3360. v_X_149 = v_SPEC_0;
  3361. v_X_151 = ((LP) DEREF((v_SPEC_0) + 0 * 4));
  3362. if (((v_X_151) == (LREF(s_lsp_SATISFIES)))) {
  3363. v_C_122 = v_SPEC_0;
  3364. v_X_124 = v_SPEC_0;
  3365. v_X_126 = ((LP) DEREF((v_SPEC_0) + 1 * 4));
  3366. v_X_128 = ((LP) DEREF((v_X_126) + 0 * 4));
  3367. v_Y_132 = (c_cons((v_X_128), (LREF(s_lsp_NIL))));
  3368. t14 = (c_cons((LREF(s_lsp_FUNCTION)), (v_Y_132)));
  3369. t0 = ICALL(s_lsp_LIST_2A) (MV_CALL(argc,3), LREF(s_lsp_FUNCALL), t14, LREF(k52));
  3370. return(t0);
  3371. } else {
  3372. v_X_134 = ICALL(s_lsp_COPY_2DTREE) (1, v_SPEC_0);
  3373. v_Y_138 = (c_cons((v_X_134), (LREF(s_lsp_NIL))));
  3374. v_X_140 = (c_cons((LREF(s_lsp_QUOTE)), (v_Y_138)));
  3375. v_Y_144 = (c_cons((v_X_140), (LREF(s_lsp_NIL))));
  3376. v_Y_147 = (c_cons((LREF(s_xp_X)), (v_Y_144)));
  3377. t0 = (c_cons((LREF(s_lsp_TYPEP)), (v_Y_147)));
  3378. return(t0);
  3379. }
  3380. }
  3381. }
  3382. }
  3383. } else {
  3384. v_SYMBOL_2 = LREF(s_xp__2APREDS_2DFOR_2DSPECS_2A);
  3385. t15 = ((LP) DEREF((LREF(s_xp__2APREDS_2DFOR_2DSPECS_2A)) + 0 * 4));
  3386. v_C_4 = ICALL(s_lsp_ASSQL) (2, v_SPEC_0, t15);
  3387. v_X_6 = v_C_4;
  3388. v_X_8 = ((LP) DEREF((v_C_4) + 1 * 4));
  3389. v_PRED_10 = ((LP) DEREF((v_X_8) + 0 * 4));
  3390. if (v_PRED_10 != NIL) {
  3391. v_X_11 = v_PRED_10;
  3392. v_Y_12 = LREF(k52);
  3393. t0 = (c_cons((v_PRED_10), (LREF(k52))));
  3394. return(t0);
  3395. } else {
  3396. v_X_14 = v_SPEC_0;
  3397. v_Y_15 = LREF(s_lsp_NIL);
  3398. v_Y_18 = (c_cons((v_SPEC_0), (LREF(s_lsp_NIL))));
  3399. v_X_20 = (c_cons((LREF(s_lsp_QUOTE)), (v_Y_18)));
  3400. v_Y_24 = (c_cons((v_X_20), (LREF(s_lsp_NIL))));
  3401. v_Y_27 = (c_cons((LREF(s_xp_X)), (v_Y_24)));
  3402. t0 = (c_cons((LREF(s_lsp_TYPEP)), (v_Y_27)));
  3403. return(t0);
  3404. }
  3405. }
  3406. }
  3407.  
  3408. LP p_xp_MAKE_2DXP_2DSTRUCTURE(va_alist) va_dcl
  3409. {
  3410. LP v_KEYS47_20; LP v_SUFFIX_19; LP v_PREFIX_2DSTACK_2DPTR_18; 
  3411. LP v_PREFIX_2DSTACK_17; LP v_PREFIX_16; LP v_QRIGHT_15; 
  3412. LP v_QLEFT_14; LP v_QUEUE_13; LP v_BUFFER_2DOFFSET_12; 
  3413. LP v_BUFFER_2DPTR_11; LP v_CHARPOS_10; LP v_BUFFER_9; 
  3414. LP v_BLOCK_2DSTACK_2DPTR_8; LP v_BLOCK_2DSTACK_7; LP v_DEPTH_2DIN_2DBLOCKS_6; 
  3415. LP v_CHAR_2DMODE_2DCOUNTER_5; LP v_CHAR_2DMODE_4; LP v_LINE_2DNO_3; 
  3416. LP v_LINE_2DLIMIT_2; LP v_LINEL_1; LP v_BASE_2DSTREAM_0; 
  3417.  
  3418. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3419. LP t6; LP t7; LP t8; LP t9; LP t10; 
  3420. DYNAMIC_REST_HOLDER(rest_conses);
  3421. int real_argc;
  3422. ARGC argc;
  3423. BEGIN_NON_ANSI_VAR_ARGS;
  3424. argc = (ARGC) NEXT_VAR_ARG;
  3425.  
  3426.  
  3427. real_argc = REAL_ARGC(argc);
  3428. if (real_argc < 0) wna_low(real_argc,0);
  3429. DYNAMIC_RESTIFY(v_KEYS47_20,1,NEXT_VAR_ARG);
  3430. BEGIN_KEY_INIT(v_BASE_2DSTREAM_0,LREF(s_key_BASE_2DSTREAM),v_KEYS47_20)
  3431. v_BASE_2DSTREAM_0 = LREF(s_lsp_NIL);
  3432. END_KEY_INIT
  3433. BEGIN_KEY_INIT(v_LINEL_1,LREF(s_key_LINEL),v_KEYS47_20)
  3434. v_LINEL_1 = LREF(s_lsp_NIL);
  3435. END_KEY_INIT
  3436. BEGIN_KEY_INIT(v_LINE_2DLIMIT_2,LREF(s_key_LINE_2DLIMIT),v_KEYS47_20)
  3437. v_LINE_2DLIMIT_2 = LREF(s_lsp_NIL);
  3438. END_KEY_INIT
  3439. BEGIN_KEY_INIT(v_LINE_2DNO_3,LREF(s_key_LINE_2DNO),v_KEYS47_20)
  3440. v_LINE_2DNO_3 = LREF(s_lsp_NIL);
  3441. END_KEY_INIT
  3442. BEGIN_KEY_INIT(v_CHAR_2DMODE_4,LREF(s_key_CHAR_2DMODE),v_KEYS47_20)
  3443. v_CHAR_2DMODE_4 = LREF(s_lsp_NIL);
  3444. END_KEY_INIT
  3445. BEGIN_KEY_INIT(v_CHAR_2DMODE_2DCOUNTER_5,LREF(s_key_CHAR_2DMODE_2DCOUNTER),v_KEYS47_20)
  3446. v_CHAR_2DMODE_2DCOUNTER_5 = LREF(s_lsp_NIL);
  3447. END_KEY_INIT
  3448. BEGIN_KEY_INIT(v_DEPTH_2DIN_2DBLOCKS_6,LREF(s_key_DEPTH_2DIN_2DBLOCKS),v_KEYS47_20)
  3449. v_DEPTH_2DIN_2DBLOCKS_6 = LREF(s_lsp_NIL);
  3450. END_KEY_INIT
  3451. BEGIN_KEY_INIT(v_BLOCK_2DSTACK_7,LREF(s_key_BLOCK_2DSTACK),v_KEYS47_20)
  3452. t0 = ICALL(s_lsp_MAKE_2DSIMPLE_2DARRAY) (5, (LP) 70, (LP) 128, (LP) 64, LREF(s_lsp_NIL), LREF(s_lsp_NIL));
  3453. v_BLOCK_2DSTACK_7 = t0;
  3454. END_KEY_INIT
  3455. BEGIN_KEY_INIT(v_BLOCK_2DSTACK_2DPTR_8,LREF(s_key_BLOCK_2DSTACK_2DPTR),v_KEYS47_20)
  3456. v_BLOCK_2DSTACK_2DPTR_8 = LREF(s_lsp_NIL);
  3457. END_KEY_INIT
  3458. BEGIN_KEY_INIT(v_BUFFER_9,LREF(s_key_BUFFER),v_KEYS47_20)
  3459. t1 = ICALL(s_lsp_MAKE_2DSIMPLE_2DARRAY) (5, (LP) 512, (LP) 48, (LP) 16, LREF(s_lsp_NIL), LREF(s_lsp_NIL));
  3460. v_BUFFER_9 = t1;
  3461. END_KEY_INIT
  3462. BEGIN_KEY_INIT(v_CHARPOS_10,LREF(s_key_CHARPOS),v_KEYS47_20)
  3463. v_CHARPOS_10 = LREF(s_lsp_NIL);
  3464. END_KEY_INIT
  3465. BEGIN_KEY_INIT(v_BUFFER_2DPTR_11,LREF(s_key_BUFFER_2DPTR),v_KEYS47_20)
  3466. v_BUFFER_2DPTR_11 = LREF(s_lsp_NIL);
  3467. END_KEY_INIT
  3468. BEGIN_KEY_INIT(v_BUFFER_2DOFFSET_12,LREF(s_key_BUFFER_2DOFFSET),v_KEYS47_20)
  3469. v_BUFFER_2DOFFSET_12 = LREF(s_lsp_NIL);
  3470. END_KEY_INIT
  3471. BEGIN_KEY_INIT(v_QUEUE_13,LREF(s_key_QUEUE),v_KEYS47_20)
  3472. t2 = ICALL(s_lsp_MAKE_2DSIMPLE_2DARRAY) (5, (LP) 1050, (LP) 128, (LP) 64, LREF(s_lsp_NIL), LREF(s_lsp_NIL));
  3473. v_QUEUE_13 = t2;
  3474. END_KEY_INIT
  3475. BEGIN_KEY_INIT(v_QLEFT_14,LREF(s_key_QLEFT),v_KEYS47_20)
  3476. v_QLEFT_14 = LREF(s_lsp_NIL);
  3477. END_KEY_INIT
  3478. BEGIN_KEY_INIT(v_QRIGHT_15,LREF(s_key_QRIGHT),v_KEYS47_20)
  3479. v_QRIGHT_15 = LREF(s_lsp_NIL);
  3480. END_KEY_INIT
  3481. BEGIN_KEY_INIT(v_PREFIX_16,LREF(s_key_PREFIX),v_KEYS47_20)
  3482. t3 = ICALL(s_lsp_MAKE_2DSIMPLE_2DARRAY) (5, (LP) 512, (LP) 48, (LP) 16, LREF(s_lsp_NIL), LREF(s_lsp_NIL));
  3483. v_PREFIX_16 = t3;
  3484. END_KEY_INIT
  3485. BEGIN_KEY_INIT(v_PREFIX_2DSTACK_17,LREF(s_key_PREFIX_2DSTACK),v_KEYS47_20)
  3486. t4 = ICALL(s_lsp_MAKE_2DSIMPLE_2DARRAY) (5, (LP) 300, (LP) 128, (LP) 64, LREF(s_lsp_NIL), LREF(s_lsp_NIL));
  3487. v_PREFIX_2DSTACK_17 = t4;
  3488. END_KEY_INIT
  3489. BEGIN_KEY_INIT(v_PREFIX_2DSTACK_2DPTR_18,LREF(s_key_PREFIX_2DSTACK_2DPTR),v_KEYS47_20)
  3490. v_PREFIX_2DSTACK_2DPTR_18 = LREF(s_lsp_NIL);
  3491. END_KEY_INIT
  3492. BEGIN_KEY_INIT(v_SUFFIX_19,LREF(s_key_SUFFIX),v_KEYS47_20)
  3493. t5 = ICALL(s_lsp_MAKE_2DSIMPLE_2DARRAY) (5, (LP) 512, (LP) 48, (LP) 16, LREF(s_lsp_NIL), LREF(s_lsp_NIL));
  3494. v_SUFFIX_19 = t5;
  3495. END_KEY_INIT
  3496. END_VAR_ARGS;
  3497. t6 = ICALL(s_xp_MAKE_2DXP_2DSTRUCTURE_2F20) (MV_CALL(argc,20), v_BASE_2DSTREAM_0, v_LINEL_1, v_LINE_2DLIMIT_2, v_LINE_2DNO_3, v_CHAR_2DMODE_4, v_CHAR_2DMODE_2DCOUNTER_5, v_DEPTH_2DIN_2DBLOCKS_6, v_BLOCK_2DSTACK_7, v_BLOCK_2DSTACK_2DPTR_8, v_BUFFER_9, v_CHARPOS_10, v_BUFFER_2DPTR_11, v_BUFFER_2DOFFSET_12, v_QUEUE_13, v_QLEFT_14, v_QRIGHT_15, v_PREFIX_16, v_PREFIX_2DSTACK_17, v_PREFIX_2DSTACK_2DPTR_18, v_SUFFIX_19);
  3498. return(t6);
  3499. }
  3500.  
  3501. LP p_xp_MAKE_2DXP_2DSTRUCTURE_2F20(argc, v_BASE_2DSTREAM_0, v_LINEL_1, v_LINE_2DLIMIT_2, v_LINE_2DNO_3, v_CHAR_2DMODE_4, v_CHAR_2DMODE_2DCOUNTER_5, v_DEPTH_2DIN_2DBLOCKS_6, v_BLOCK_2DSTACK_7, v_BLOCK_2DSTACK_2DPTR_8, v_BUFFER_9, v_CHARPOS_10, v_BUFFER_2DPTR_11, v_BUFFER_2DOFFSET_12, v_QUEUE_13, v_QLEFT_14, v_QRIGHT_15, v_PREFIX_16, v_PREFIX_2DSTACK_17, v_PREFIX_2DSTACK_2DPTR_18, v_SUFFIX_19)
  3502.       ARGC argc;  LP v_BASE_2DSTREAM_0; LP v_LINEL_1; LP v_LINE_2DLIMIT_2; LP v_LINE_2DNO_3; LP v_CHAR_2DMODE_4; LP v_CHAR_2DMODE_2DCOUNTER_5; LP v_DEPTH_2DIN_2DBLOCKS_6; LP v_BLOCK_2DSTACK_7; LP v_BLOCK_2DSTACK_2DPTR_8; LP v_BUFFER_9; LP v_CHARPOS_10; LP v_BUFFER_2DPTR_11; LP v_BUFFER_2DOFFSET_12; LP v_QUEUE_13; LP v_QLEFT_14; LP v_QRIGHT_15; LP v_PREFIX_16; LP v_PREFIX_2DSTACK_17; LP v_PREFIX_2DSTACK_2DPTR_18; LP v_SUFFIX_19;
  3503. {
  3504. LP v_VALUE_106; LP v_N_105; LP v_S_104; 
  3505. LP v_VALUE_102; LP v_N_101; LP v_S_100; 
  3506. LP v_VALUE_98; LP v_N_97; LP v_S_96; 
  3507. LP v_VALUE_94; LP v_N_93; LP v_S_92; 
  3508. LP v_VALUE_90; LP v_N_89; LP v_S_88; 
  3509. LP v_VALUE_86; LP v_N_85; LP v_S_84; 
  3510. LP v_VALUE_82; LP v_N_81; LP v_S_80; 
  3511. LP v_VALUE_78; LP v_N_77; LP v_S_76; 
  3512. LP v_VALUE_74; LP v_N_73; LP v_S_72; 
  3513. LP v_VALUE_70; LP v_N_69; LP v_S_68; 
  3514. LP v_VALUE_66; LP v_N_65; LP v_S_64; 
  3515. LP v_VALUE_62; LP v_N_61; LP v_S_60; 
  3516. LP v_VALUE_58; LP v_N_57; LP v_S_56; 
  3517. LP v_VALUE_54; LP v_N_53; LP v_S_52; 
  3518. LP v_VALUE_50; LP v_N_49; LP v_S_48; 
  3519. LP v_VALUE_46; LP v_N_45; LP v_S_44; 
  3520. LP v_VALUE_42; LP v_N_41; LP v_S_40; 
  3521. LP v_VALUE_38; LP v_N_37; LP v_S_36; 
  3522. LP v_VALUE_34; LP v_N_33; LP v_S_32; 
  3523. LP v_VALUE_30; LP v_N_29; LP v_S_28; 
  3524. LP v_VALUE_26; LP v_N_25; LP v_S_24; 
  3525. LP v_S_23; LP v_LEN_21; 
  3526. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3527. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  3528. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  3529. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  3530. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  3531. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  3532. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  3533. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  3534. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  3535. LP t54; LP t55; LP t56; LP t57; LP t58; LP t59; 
  3536. LP t60; LP t61; LP t62; LP t63; LP t64; LP t65; 
  3537. LP t66; 
  3538. if (argc != 20) wna(argc,20);
  3539. v_LEN_21 = (LP) 42;
  3540. v_S_23 = (alloc_words(21, 47));
  3541. v_S_24 = v_S_23;
  3542. v_N_25 = (LP) 0;
  3543. v_VALUE_26 = LREF(s_xp_XP_2DSTRUCTURE);
  3544. ((LP) (DEREF((v_S_23) + 0 * 4) = (LD) (LREF(s_xp_XP_2DSTRUCTURE))));
  3545. v_S_28 = v_S_23;
  3546. v_N_29 = (LP) 2;
  3547. v_VALUE_30 = v_BASE_2DSTREAM_0;
  3548. ((LP) (DEREF((v_S_23) + 1 * 4) = (LD) (v_BASE_2DSTREAM_0)));
  3549. v_S_32 = v_S_23;
  3550. v_N_33 = (LP) 4;
  3551. v_VALUE_34 = v_LINEL_1;
  3552. ((LP) (DEREF((v_S_23) + 2 * 4) = (LD) (v_LINEL_1)));
  3553. v_S_36 = v_S_23;
  3554. v_N_37 = (LP) 6;
  3555. v_VALUE_38 = v_LINE_2DLIMIT_2;
  3556. ((LP) (DEREF((v_S_23) + 3 * 4) = (LD) (v_LINE_2DLIMIT_2)));
  3557. v_S_40 = v_S_23;
  3558. v_N_41 = (LP) 8;
  3559. v_VALUE_42 = v_LINE_2DNO_3;
  3560. ((LP) (DEREF((v_S_23) + 4 * 4) = (LD) (v_LINE_2DNO_3)));
  3561. v_S_44 = v_S_23;
  3562. v_N_45 = (LP) 10;
  3563. v_VALUE_46 = v_CHAR_2DMODE_4;
  3564. ((LP) (DEREF((v_S_23) + 5 * 4) = (LD) (v_CHAR_2DMODE_4)));
  3565. v_S_48 = v_S_23;
  3566. v_N_49 = (LP) 12;
  3567. v_VALUE_50 = v_CHAR_2DMODE_2DCOUNTER_5;
  3568. ((LP) (DEREF((v_S_23) + 6 * 4) = (LD) (v_CHAR_2DMODE_2DCOUNTER_5)));
  3569. v_S_52 = v_S_23;
  3570. v_N_53 = (LP) 14;
  3571. v_VALUE_54 = v_DEPTH_2DIN_2DBLOCKS_6;
  3572. ((LP) (DEREF((v_S_23) + 7 * 4) = (LD) (v_DEPTH_2DIN_2DBLOCKS_6)));
  3573. v_S_56 = v_S_23;
  3574. v_N_57 = (LP) 16;
  3575. v_VALUE_58 = v_BLOCK_2DSTACK_7;
  3576. ((LP) (DEREF((v_S_23) + 8 * 4) = (LD) (v_BLOCK_2DSTACK_7)));
  3577. v_S_60 = v_S_23;
  3578. v_N_61 = (LP) 18;
  3579. v_VALUE_62 = v_BLOCK_2DSTACK_2DPTR_8;
  3580. ((LP) (DEREF((v_S_23) + 9 * 4) = (LD) (v_BLOCK_2DSTACK_2DPTR_8)));
  3581. v_S_64 = v_S_23;
  3582. v_N_65 = (LP) 20;
  3583. v_VALUE_66 = v_BUFFER_9;
  3584. ((LP) (DEREF((v_S_23) + 10 * 4) = (LD) (v_BUFFER_9)));
  3585. v_S_68 = v_S_23;
  3586. v_N_69 = (LP) 22;
  3587. v_VALUE_70 = v_CHARPOS_10;
  3588. ((LP) (DEREF((v_S_23) + 11 * 4) = (LD) (v_CHARPOS_10)));
  3589. v_S_72 = v_S_23;
  3590. v_N_73 = (LP) 24;
  3591. v_VALUE_74 = v_BUFFER_2DPTR_11;
  3592. ((LP) (DEREF((v_S_23) + 12 * 4) = (LD) (v_BUFFER_2DPTR_11)));
  3593. v_S_76 = v_S_23;
  3594. v_N_77 = (LP) 26;
  3595. v_VALUE_78 = v_BUFFER_2DOFFSET_12;
  3596. ((LP) (DEREF((v_S_23) + 13 * 4) = (LD) (v_BUFFER_2DOFFSET_12)));
  3597. v_S_80 = v_S_23;
  3598. v_N_81 = (LP) 28;
  3599. v_VALUE_82 = v_QUEUE_13;
  3600. ((LP) (DEREF((v_S_23) + 14 * 4) = (LD) (v_QUEUE_13)));
  3601. v_S_84 = v_S_23;
  3602. v_N_85 = (LP) 30;
  3603. v_VALUE_86 = v_QLEFT_14;
  3604. ((LP) (DEREF((v_S_23) + 15 * 4) = (LD) (v_QLEFT_14)));
  3605. v_S_88 = v_S_23;
  3606. v_N_89 = (LP) 32;
  3607. v_VALUE_90 = v_QRIGHT_15;
  3608. ((LP) (DEREF((v_S_23) + 16 * 4) = (LD) (v_QRIGHT_15)));
  3609. v_S_92 = v_S_23;
  3610. v_N_93 = (LP) 34;
  3611. v_VALUE_94 = v_PREFIX_16;
  3612. ((LP) (DEREF((v_S_23) + 17 * 4) = (LD) (v_PREFIX_16)));
  3613. v_S_96 = v_S_23;
  3614. v_N_97 = (LP) 36;
  3615. v_VALUE_98 = v_PREFIX_2DSTACK_17;
  3616. ((LP) (DEREF((v_S_23) + 18 * 4) = (LD) (v_PREFIX_2DSTACK_17)));
  3617. v_S_100 = v_S_23;
  3618. v_N_101 = (LP) 38;
  3619. v_VALUE_102 = v_PREFIX_2DSTACK_2DPTR_18;
  3620. ((LP) (DEREF((v_S_23) + 19 * 4) = (LD) (v_PREFIX_2DSTACK_2DPTR_18)));
  3621. v_S_104 = v_S_23;
  3622. v_N_105 = (LP) 40;
  3623. v_VALUE_106 = v_SUFFIX_19;
  3624. ((LP) (DEREF((v_S_23) + 20 * 4) = (LD) (v_SUFFIX_19)));
  3625. return(v_S_23);
  3626. }
  3627.  
  3628. LP p_xp_FLUID_2DXP_2DSTRUCTURE_2DP_21_40_24(argc, v_S_0)
  3629.       ARGC argc;  LP v_S_0;
  3630. {
  3631. LP v_X_11; LP v_G48_10; LP v_Y_8; 
  3632. LP v_X_7; LP v_EXPECTED_6; LP v_ACTUAL_5; 
  3633. LP v_I_3; LP v_S_2; 
  3634. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3635. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  3636. LP t12; LP t13; LP t14; LP t15; LP t16; 
  3637. if (argc != 1) wna(argc,1);
  3638. v_X_11 = v_S_0;
  3639. if (OTHER_PTRP((v_S_0)) && (TAG((v_S_0)) == 47)) {
  3640. v_S_2 = v_S_0;
  3641. v_I_3 = (LP) 0;
  3642. v_ACTUAL_5 = ((LP) DEREF((v_S_0) + 0 * 4));
  3643. v_EXPECTED_6 = LREF(s_xp_XP_2DSTRUCTURE);
  3644. v_X_7 = v_EXPECTED_6;
  3645. v_Y_8 = v_ACTUAL_5;
  3646. v_G48_10 = (((v_EXPECTED_6) == (v_ACTUAL_5)) ? T : NIL);
  3647. if (v_G48_10 != NIL) {
  3648. return(v_G48_10);
  3649. } else {
  3650. t0 = ICALL(s_lsp_INHERITED_2DSTRUCTURE_2DNAME_2DP) (MV_CALL(argc,2), v_EXPECTED_6, v_ACTUAL_5);
  3651. return(t0);
  3652. }
  3653. } else {
  3654. return(LREF(s_lsp_NIL));
  3655. }
  3656. }
  3657.  
  3658. LP p_xp_BASE_2DSTREAM(argc, v_S_0)
  3659.       ARGC argc;  LP v_S_0;
  3660. {
  3661. LP v_I_3; LP v_S_2; 
  3662. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3663. LP t6; LP t7; 
  3664. if (argc != 1) wna(argc,1);
  3665. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3666. if (t0 == NIL) {
  3667. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3668. }
  3669. v_S_2 = v_S_0;
  3670. v_I_3 = (LP) 2;
  3671. t1 = ((LP) DEREF((v_S_0) + 1 * 4));
  3672. return(t1);
  3673. }
  3674.  
  3675. LP p_xp_LINEL(argc, v_S_0)
  3676.       ARGC argc;  LP v_S_0;
  3677. {
  3678. LP v_I_3; LP v_S_2; 
  3679. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3680. LP t6; LP t7; 
  3681. if (argc != 1) wna(argc,1);
  3682. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3683. if (t0 == NIL) {
  3684. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3685. }
  3686. v_S_2 = v_S_0;
  3687. v_I_3 = (LP) 4;
  3688. t1 = ((LP) DEREF((v_S_0) + 2 * 4));
  3689. return(t1);
  3690. }
  3691.  
  3692. LP p_xp_LINE_2DLIMIT(argc, v_S_0)
  3693.       ARGC argc;  LP v_S_0;
  3694. {
  3695. LP v_I_3; LP v_S_2; 
  3696. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3697. LP t6; LP t7; 
  3698. if (argc != 1) wna(argc,1);
  3699. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3700. if (t0 == NIL) {
  3701. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3702. }
  3703. v_S_2 = v_S_0;
  3704. v_I_3 = (LP) 6;
  3705. t1 = ((LP) DEREF((v_S_0) + 3 * 4));
  3706. return(t1);
  3707. }
  3708.  
  3709. LP p_xp_LINE_2DNO(argc, v_S_0)
  3710.       ARGC argc;  LP v_S_0;
  3711. {
  3712. LP v_I_3; LP v_S_2; 
  3713. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3714. LP t6; LP t7; 
  3715. if (argc != 1) wna(argc,1);
  3716. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3717. if (t0 == NIL) {
  3718. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3719. }
  3720. v_S_2 = v_S_0;
  3721. v_I_3 = (LP) 8;
  3722. t1 = ((LP) DEREF((v_S_0) + 4 * 4));
  3723. return(t1);
  3724. }
  3725.  
  3726. LP p_xp_CHAR_2DMODE(argc, v_S_0)
  3727.       ARGC argc;  LP v_S_0;
  3728. {
  3729. LP v_I_3; LP v_S_2; 
  3730. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3731. LP t6; LP t7; 
  3732. if (argc != 1) wna(argc,1);
  3733. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3734. if (t0 == NIL) {
  3735. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3736. }
  3737. v_S_2 = v_S_0;
  3738. v_I_3 = (LP) 10;
  3739. t1 = ((LP) DEREF((v_S_0) + 5 * 4));
  3740. return(t1);
  3741. }
  3742.  
  3743. LP p_xp_CHAR_2DMODE_2DCOUNTER(argc, v_S_0)
  3744.       ARGC argc;  LP v_S_0;
  3745. {
  3746. LP v_I_3; LP v_S_2; 
  3747. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3748. LP t6; LP t7; 
  3749. if (argc != 1) wna(argc,1);
  3750. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3751. if (t0 == NIL) {
  3752. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3753. }
  3754. v_S_2 = v_S_0;
  3755. v_I_3 = (LP) 12;
  3756. t1 = ((LP) DEREF((v_S_0) + 6 * 4));
  3757. return(t1);
  3758. }
  3759.  
  3760. LP p_xp_DEPTH_2DIN_2DBLOCKS(argc, v_S_0)
  3761.       ARGC argc;  LP v_S_0;
  3762. {
  3763. LP v_I_3; LP v_S_2; 
  3764. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3765. LP t6; LP t7; 
  3766. if (argc != 1) wna(argc,1);
  3767. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3768. if (t0 == NIL) {
  3769. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3770. }
  3771. v_S_2 = v_S_0;
  3772. v_I_3 = (LP) 14;
  3773. t1 = ((LP) DEREF((v_S_0) + 7 * 4));
  3774. return(t1);
  3775. }
  3776.  
  3777. LP p_xp_BLOCK_2DSTACK(argc, v_S_0)
  3778.       ARGC argc;  LP v_S_0;
  3779. {
  3780. LP v_I_3; LP v_S_2; 
  3781. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3782. LP t6; LP t7; 
  3783. if (argc != 1) wna(argc,1);
  3784. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3785. if (t0 == NIL) {
  3786. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3787. }
  3788. v_S_2 = v_S_0;
  3789. v_I_3 = (LP) 16;
  3790. t1 = ((LP) DEREF((v_S_0) + 8 * 4));
  3791. return(t1);
  3792. }
  3793.  
  3794. LP p_xp_BLOCK_2DSTACK_2DPTR(argc, v_S_0)
  3795.       ARGC argc;  LP v_S_0;
  3796. {
  3797. LP v_I_3; LP v_S_2; 
  3798. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3799. LP t6; LP t7; 
  3800. if (argc != 1) wna(argc,1);
  3801. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3802. if (t0 == NIL) {
  3803. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3804. }
  3805. v_S_2 = v_S_0;
  3806. v_I_3 = (LP) 18;
  3807. t1 = ((LP) DEREF((v_S_0) + 9 * 4));
  3808. return(t1);
  3809. }
  3810.  
  3811. LP p_xp_BUFFER(argc, v_S_0)
  3812.       ARGC argc;  LP v_S_0;
  3813. {
  3814. LP v_I_3; LP v_S_2; 
  3815. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3816. LP t6; LP t7; 
  3817. if (argc != 1) wna(argc,1);
  3818. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3819. if (t0 == NIL) {
  3820. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3821. }
  3822. v_S_2 = v_S_0;
  3823. v_I_3 = (LP) 20;
  3824. t1 = ((LP) DEREF((v_S_0) + 10 * 4));
  3825. return(t1);
  3826. }
  3827.  
  3828. LP p_xp_CHARPOS(argc, v_S_0)
  3829.       ARGC argc;  LP v_S_0;
  3830. {
  3831. LP v_I_3; LP v_S_2; 
  3832. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3833. LP t6; LP t7; 
  3834. if (argc != 1) wna(argc,1);
  3835. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3836. if (t0 == NIL) {
  3837. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3838. }
  3839. v_S_2 = v_S_0;
  3840. v_I_3 = (LP) 22;
  3841. t1 = ((LP) DEREF((v_S_0) + 11 * 4));
  3842. return(t1);
  3843. }
  3844.  
  3845. LP p_xp_BUFFER_2DPTR(argc, v_S_0)
  3846.       ARGC argc;  LP v_S_0;
  3847. {
  3848. LP v_I_3; LP v_S_2; 
  3849. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3850. LP t6; LP t7; 
  3851. if (argc != 1) wna(argc,1);
  3852. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3853. if (t0 == NIL) {
  3854. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3855. }
  3856. v_S_2 = v_S_0;
  3857. v_I_3 = (LP) 24;
  3858. t1 = ((LP) DEREF((v_S_0) + 12 * 4));
  3859. return(t1);
  3860. }
  3861.  
  3862. LP p_xp_BUFFER_2DOFFSET(argc, v_S_0)
  3863.       ARGC argc;  LP v_S_0;
  3864. {
  3865. LP v_I_3; LP v_S_2; 
  3866. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3867. LP t6; LP t7; 
  3868. if (argc != 1) wna(argc,1);
  3869. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3870. if (t0 == NIL) {
  3871. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3872. }
  3873. v_S_2 = v_S_0;
  3874. v_I_3 = (LP) 26;
  3875. t1 = ((LP) DEREF((v_S_0) + 13 * 4));
  3876. return(t1);
  3877. }
  3878.  
  3879. LP p_xp_QUEUE(argc, v_S_0)
  3880.       ARGC argc;  LP v_S_0;
  3881. {
  3882. LP v_I_3; LP v_S_2; 
  3883. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3884. LP t6; LP t7; 
  3885. if (argc != 1) wna(argc,1);
  3886. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3887. if (t0 == NIL) {
  3888. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3889. }
  3890. v_S_2 = v_S_0;
  3891. v_I_3 = (LP) 28;
  3892. t1 = ((LP) DEREF((v_S_0) + 14 * 4));
  3893. return(t1);
  3894. }
  3895.  
  3896. LP p_xp_QLEFT(argc, v_S_0)
  3897.       ARGC argc;  LP v_S_0;
  3898. {
  3899. LP v_I_3; LP v_S_2; 
  3900. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3901. LP t6; LP t7; 
  3902. if (argc != 1) wna(argc,1);
  3903. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3904. if (t0 == NIL) {
  3905. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3906. }
  3907. v_S_2 = v_S_0;
  3908. v_I_3 = (LP) 30;
  3909. t1 = ((LP) DEREF((v_S_0) + 15 * 4));
  3910. return(t1);
  3911. }
  3912.  
  3913. LP p_xp_QRIGHT(argc, v_S_0)
  3914.       ARGC argc;  LP v_S_0;
  3915. {
  3916. LP v_I_3; LP v_S_2; 
  3917. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3918. LP t6; LP t7; 
  3919. if (argc != 1) wna(argc,1);
  3920. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3921. if (t0 == NIL) {
  3922. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3923. }
  3924. v_S_2 = v_S_0;
  3925. v_I_3 = (LP) 32;
  3926. t1 = ((LP) DEREF((v_S_0) + 16 * 4));
  3927. return(t1);
  3928. }
  3929.  
  3930. LP p_xp_PREFIX(argc, v_S_0)
  3931.       ARGC argc;  LP v_S_0;
  3932. {
  3933. LP v_I_3; LP v_S_2; 
  3934. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3935. LP t6; LP t7; 
  3936. if (argc != 1) wna(argc,1);
  3937. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3938. if (t0 == NIL) {
  3939. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3940. }
  3941. v_S_2 = v_S_0;
  3942. v_I_3 = (LP) 34;
  3943. t1 = ((LP) DEREF((v_S_0) + 17 * 4));
  3944. return(t1);
  3945. }
  3946.  
  3947. LP p_xp_PREFIX_2DSTACK(argc, v_S_0)
  3948.       ARGC argc;  LP v_S_0;
  3949. {
  3950. LP v_I_3; LP v_S_2; 
  3951. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3952. LP t6; LP t7; 
  3953. if (argc != 1) wna(argc,1);
  3954. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3955. if (t0 == NIL) {
  3956. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3957. }
  3958. v_S_2 = v_S_0;
  3959. v_I_3 = (LP) 36;
  3960. t1 = ((LP) DEREF((v_S_0) + 18 * 4));
  3961. return(t1);
  3962. }
  3963.  
  3964. LP p_xp_PREFIX_2DSTACK_2DPTR(argc, v_S_0)
  3965.       ARGC argc;  LP v_S_0;
  3966. {
  3967. LP v_I_3; LP v_S_2; 
  3968. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3969. LP t6; LP t7; 
  3970. if (argc != 1) wna(argc,1);
  3971. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3972. if (t0 == NIL) {
  3973. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3974. }
  3975. v_S_2 = v_S_0;
  3976. v_I_3 = (LP) 38;
  3977. t1 = ((LP) DEREF((v_S_0) + 19 * 4));
  3978. return(t1);
  3979. }
  3980.  
  3981. LP p_xp_SUFFIX(argc, v_S_0)
  3982.       ARGC argc;  LP v_S_0;
  3983. {
  3984. LP v_I_3; LP v_S_2; 
  3985. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  3986. LP t6; LP t7; 
  3987. if (argc != 1) wna(argc,1);
  3988. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  3989. if (t0 == NIL) {
  3990. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  3991. }
  3992. v_S_2 = v_S_0;
  3993. v_I_3 = (LP) 40;
  3994. t1 = ((LP) DEREF((v_S_0) + 20 * 4));
  3995. return(t1);
  3996. }
  3997.  
  3998. LP p_xp_SET_2DBASE_2DSTREAM_21_40_24(argc, v_S_0, v_VALUE_1)
  3999.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4000. {
  4001. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4002.  
  4003. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4004. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4005. if (argc != 2) wna(argc,2);
  4006. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4007. if (t0 == NIL) {
  4008. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4009. }
  4010. v_S_3 = v_S_0;
  4011. v_N_4 = (LP) 2;
  4012. v_VALUE_5 = v_VALUE_1;
  4013. t1 = ((LP) (DEREF((v_S_0) + 1 * 4) = (LD) (v_VALUE_1)));
  4014. return(t1);
  4015. }
  4016.  
  4017. LP p_xp_SET_2DLINEL_21_40_24(argc, v_S_0, v_VALUE_1)
  4018.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4019. {
  4020. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4021.  
  4022. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4023. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4024. if (argc != 2) wna(argc,2);
  4025. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4026. if (t0 == NIL) {
  4027. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4028. }
  4029. v_S_3 = v_S_0;
  4030. v_N_4 = (LP) 4;
  4031. v_VALUE_5 = v_VALUE_1;
  4032. t1 = ((LP) (DEREF((v_S_0) + 2 * 4) = (LD) (v_VALUE_1)));
  4033. return(t1);
  4034. }
  4035.  
  4036. LP p_xp_SET_2DLINE_2DLIMIT_21_40_24(argc, v_S_0, v_VALUE_1)
  4037.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4038. {
  4039. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4040.  
  4041. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4042. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4043. if (argc != 2) wna(argc,2);
  4044. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4045. if (t0 == NIL) {
  4046. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4047. }
  4048. v_S_3 = v_S_0;
  4049. v_N_4 = (LP) 6;
  4050. v_VALUE_5 = v_VALUE_1;
  4051. t1 = ((LP) (DEREF((v_S_0) + 3 * 4) = (LD) (v_VALUE_1)));
  4052. return(t1);
  4053. }
  4054.  
  4055. LP p_xp_SET_2DLINE_2DNO_21_40_24(argc, v_S_0, v_VALUE_1)
  4056.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4057. {
  4058. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4059.  
  4060. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4061. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4062. if (argc != 2) wna(argc,2);
  4063. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4064. if (t0 == NIL) {
  4065. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4066. }
  4067. v_S_3 = v_S_0;
  4068. v_N_4 = (LP) 8;
  4069. v_VALUE_5 = v_VALUE_1;
  4070. t1 = ((LP) (DEREF((v_S_0) + 4 * 4) = (LD) (v_VALUE_1)));
  4071. return(t1);
  4072. }
  4073.  
  4074. LP p_xp_SET_2DCHAR_2DMODE_21_40_24(argc, v_S_0, v_VALUE_1)
  4075.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4076. {
  4077. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4078.  
  4079. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4080. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4081. if (argc != 2) wna(argc,2);
  4082. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4083. if (t0 == NIL) {
  4084. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4085. }
  4086. v_S_3 = v_S_0;
  4087. v_N_4 = (LP) 10;
  4088. v_VALUE_5 = v_VALUE_1;
  4089. t1 = ((LP) (DEREF((v_S_0) + 5 * 4) = (LD) (v_VALUE_1)));
  4090. return(t1);
  4091. }
  4092.  
  4093. LP p_xp_SET_2DCHAR_2DMODE_2DCOUNTER_21_40_24(argc, v_S_0, v_VALUE_1)
  4094.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4095. {
  4096. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4097.  
  4098. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4099. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4100. if (argc != 2) wna(argc,2);
  4101. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4102. if (t0 == NIL) {
  4103. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4104. }
  4105. v_S_3 = v_S_0;
  4106. v_N_4 = (LP) 12;
  4107. v_VALUE_5 = v_VALUE_1;
  4108. t1 = ((LP) (DEREF((v_S_0) + 6 * 4) = (LD) (v_VALUE_1)));
  4109. return(t1);
  4110. }
  4111.  
  4112. LP p_xp_SET_2DDEPTH_2DIN_2DBLOCKS_21_40_24(argc, v_S_0, v_VALUE_1)
  4113.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4114. {
  4115. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4116.  
  4117. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4118. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4119. if (argc != 2) wna(argc,2);
  4120. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4121. if (t0 == NIL) {
  4122. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4123. }
  4124. v_S_3 = v_S_0;
  4125. v_N_4 = (LP) 14;
  4126. v_VALUE_5 = v_VALUE_1;
  4127. t1 = ((LP) (DEREF((v_S_0) + 7 * 4) = (LD) (v_VALUE_1)));
  4128. return(t1);
  4129. }
  4130.  
  4131. LP p_xp_SET_2DBLOCK_2DSTACK_21_40_24(argc, v_S_0, v_VALUE_1)
  4132.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4133. {
  4134. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4135.  
  4136. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4137. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4138. if (argc != 2) wna(argc,2);
  4139. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4140. if (t0 == NIL) {
  4141. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4142. }
  4143. v_S_3 = v_S_0;
  4144. v_N_4 = (LP) 16;
  4145. v_VALUE_5 = v_VALUE_1;
  4146. t1 = ((LP) (DEREF((v_S_0) + 8 * 4) = (LD) (v_VALUE_1)));
  4147. return(t1);
  4148. }
  4149.  
  4150. LP p_xp_SET_2DBLOCK_2DSTACK_2DPTR_21_40_24(argc, v_S_0, v_VALUE_1)
  4151.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4152. {
  4153. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4154.  
  4155. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4156. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4157. if (argc != 2) wna(argc,2);
  4158. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4159. if (t0 == NIL) {
  4160. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4161. }
  4162. v_S_3 = v_S_0;
  4163. v_N_4 = (LP) 18;
  4164. v_VALUE_5 = v_VALUE_1;
  4165. t1 = ((LP) (DEREF((v_S_0) + 9 * 4) = (LD) (v_VALUE_1)));
  4166. return(t1);
  4167. }
  4168.  
  4169. LP p_xp_SET_2DBUFFER_21_40_24(argc, v_S_0, v_VALUE_1)
  4170.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4171. {
  4172. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4173.  
  4174. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4175. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4176. if (argc != 2) wna(argc,2);
  4177. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4178. if (t0 == NIL) {
  4179. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4180. }
  4181. v_S_3 = v_S_0;
  4182. v_N_4 = (LP) 20;
  4183. v_VALUE_5 = v_VALUE_1;
  4184. t1 = ((LP) (DEREF((v_S_0) + 10 * 4) = (LD) (v_VALUE_1)));
  4185. return(t1);
  4186. }
  4187.  
  4188. LP p_xp_SET_2DCHARPOS_21_40_24(argc, v_S_0, v_VALUE_1)
  4189.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4190. {
  4191. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4192.  
  4193. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4194. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4195. if (argc != 2) wna(argc,2);
  4196. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4197. if (t0 == NIL) {
  4198. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4199. }
  4200. v_S_3 = v_S_0;
  4201. v_N_4 = (LP) 22;
  4202. v_VALUE_5 = v_VALUE_1;
  4203. t1 = ((LP) (DEREF((v_S_0) + 11 * 4) = (LD) (v_VALUE_1)));
  4204. return(t1);
  4205. }
  4206.  
  4207. LP p_xp_SET_2DBUFFER_2DPTR_21_40_24(argc, v_S_0, v_VALUE_1)
  4208.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4209. {
  4210. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4211.  
  4212. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4213. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4214. if (argc != 2) wna(argc,2);
  4215. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4216. if (t0 == NIL) {
  4217. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4218. }
  4219. v_S_3 = v_S_0;
  4220. v_N_4 = (LP) 24;
  4221. v_VALUE_5 = v_VALUE_1;
  4222. t1 = ((LP) (DEREF((v_S_0) + 12 * 4) = (LD) (v_VALUE_1)));
  4223. return(t1);
  4224. }
  4225.  
  4226. LP p_xp_SET_2DBUFFER_2DOFFSET_21_40_24(argc, v_S_0, v_VALUE_1)
  4227.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4228. {
  4229. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4230.  
  4231. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4232. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4233. if (argc != 2) wna(argc,2);
  4234. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4235. if (t0 == NIL) {
  4236. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4237. }
  4238. v_S_3 = v_S_0;
  4239. v_N_4 = (LP) 26;
  4240. v_VALUE_5 = v_VALUE_1;
  4241. t1 = ((LP) (DEREF((v_S_0) + 13 * 4) = (LD) (v_VALUE_1)));
  4242. return(t1);
  4243. }
  4244.  
  4245. LP p_xp_SET_2DQUEUE_21_40_24(argc, v_S_0, v_VALUE_1)
  4246.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4247. {
  4248. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4249.  
  4250. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4251. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4252. if (argc != 2) wna(argc,2);
  4253. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4254. if (t0 == NIL) {
  4255. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4256. }
  4257. v_S_3 = v_S_0;
  4258. v_N_4 = (LP) 28;
  4259. v_VALUE_5 = v_VALUE_1;
  4260. t1 = ((LP) (DEREF((v_S_0) + 14 * 4) = (LD) (v_VALUE_1)));
  4261. return(t1);
  4262. }
  4263.  
  4264. LP p_xp_SET_2DQLEFT_21_40_24(argc, v_S_0, v_VALUE_1)
  4265.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4266. {
  4267. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4268.  
  4269. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4270. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4271. if (argc != 2) wna(argc,2);
  4272. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4273. if (t0 == NIL) {
  4274. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4275. }
  4276. v_S_3 = v_S_0;
  4277. v_N_4 = (LP) 30;
  4278. v_VALUE_5 = v_VALUE_1;
  4279. t1 = ((LP) (DEREF((v_S_0) + 15 * 4) = (LD) (v_VALUE_1)));
  4280. return(t1);
  4281. }
  4282.  
  4283. LP p_xp_SET_2DQRIGHT_21_40_24(argc, v_S_0, v_VALUE_1)
  4284.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4285. {
  4286. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4287.  
  4288. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4289. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4290. if (argc != 2) wna(argc,2);
  4291. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4292. if (t0 == NIL) {
  4293. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4294. }
  4295. v_S_3 = v_S_0;
  4296. v_N_4 = (LP) 32;
  4297. v_VALUE_5 = v_VALUE_1;
  4298. t1 = ((LP) (DEREF((v_S_0) + 16 * 4) = (LD) (v_VALUE_1)));
  4299. return(t1);
  4300. }
  4301.  
  4302. LP p_xp_SET_2DPREFIX_21_40_24(argc, v_S_0, v_VALUE_1)
  4303.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4304. {
  4305. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4306.  
  4307. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4308. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4309. if (argc != 2) wna(argc,2);
  4310. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4311. if (t0 == NIL) {
  4312. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4313. }
  4314. v_S_3 = v_S_0;
  4315. v_N_4 = (LP) 34;
  4316. v_VALUE_5 = v_VALUE_1;
  4317. t1 = ((LP) (DEREF((v_S_0) + 17 * 4) = (LD) (v_VALUE_1)));
  4318. return(t1);
  4319. }
  4320.  
  4321. LP p_xp_SET_2DPREFIX_2DSTACK_21_40_24(argc, v_S_0, v_VALUE_1)
  4322.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4323. {
  4324. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4325.  
  4326. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4327. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4328. if (argc != 2) wna(argc,2);
  4329. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4330. if (t0 == NIL) {
  4331. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4332. }
  4333. v_S_3 = v_S_0;
  4334. v_N_4 = (LP) 36;
  4335. v_VALUE_5 = v_VALUE_1;
  4336. t1 = ((LP) (DEREF((v_S_0) + 18 * 4) = (LD) (v_VALUE_1)));
  4337. return(t1);
  4338. }
  4339.  
  4340. LP p_xp_SET_2DPREFIX_2DSTACK_2DPTR_21_40_24(argc, v_S_0, v_VALUE_1)
  4341.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4342. {
  4343. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4344.  
  4345. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4346. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4347. if (argc != 2) wna(argc,2);
  4348. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4349. if (t0 == NIL) {
  4350. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4351. }
  4352. v_S_3 = v_S_0;
  4353. v_N_4 = (LP) 38;
  4354. v_VALUE_5 = v_VALUE_1;
  4355. t1 = ((LP) (DEREF((v_S_0) + 19 * 4) = (LD) (v_VALUE_1)));
  4356. return(t1);
  4357. }
  4358.  
  4359. LP p_xp_SET_2DSUFFIX_21_40_24(argc, v_S_0, v_VALUE_1)
  4360.       ARGC argc;  LP v_S_0; LP v_VALUE_1;
  4361. {
  4362. LP v_VALUE_5; LP v_N_4; LP v_S_3; 
  4363.  
  4364. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4365. LP t6; LP t7; LP t8; LP t9; LP t10; 
  4366. if (argc != 2) wna(argc,2);
  4367. t0 = ICALL(s_xp_XP_2DSTRUCTURE_2DP) (1, v_S_0);
  4368. if (t0 == NIL) {
  4369. ICALL(s_lsp_WTA) (3, v_S_0, LREF(s_xp_XP_2DSTRUCTURE), (LP) 0);
  4370. }
  4371. v_S_3 = v_S_0;
  4372. v_N_4 = (LP) 40;
  4373. v_VALUE_5 = v_VALUE_1;
  4374. t1 = ((LP) (DEREF((v_S_0) + 20 * 4) = (LD) (v_VALUE_1)));
  4375. return(t1);
  4376. }
  4377.  
  4378. LP p_xp_COPY_2DXP_2DSTRUCTURE(argc, v_S_0)
  4379.       ARGC argc;  LP v_S_0;
  4380. {
  4381.  
  4382. LP t0; LP t1; LP t2; LP t3; LP t4; 
  4383. if (argc != 1) wna(argc,1);
  4384. t0 = ICALL(s_lsp_COPY_2DSTRUCTURE) (MV_CALL(argc,1), v_S_0);
  4385. return(t0);
  4386. }
  4387.  
  4388. LP m_xp_LP_3C_2DBP(argc, v_WHOLE49_0, v_ENV50_1)
  4389.       ARGC argc;  LP v_WHOLE49_0; LP v_ENV50_1;
  4390. {
  4391. LP v_XP_13; LP v_S58_12; LP v_X_10; 
  4392. LP v_VALUE57_9; LP v_X_7; LP v_LIST56_6; 
  4393. LP v_L55_5; LP v_X_3; 
  4394. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4395. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4396. LP t12; 
  4397. if (argc != 2) wna(argc,2);
  4398. t0 = NEW_OE(1);
  4399. v_X_3 = v_WHOLE49_0;
  4400. v_L55_5 = ((LP) DEREF((v_WHOLE49_0) + 1 * 4));
  4401. v_LIST56_6 = v_L55_5;
  4402. v_X_7 = v_LIST56_6;
  4403. v_VALUE57_9 = ((LP) DEREF((v_LIST56_6) + 0 * 4));
  4404. v_X_10 = v_LIST56_6;
  4405. v_S58_12 = ((LP) DEREF((v_LIST56_6) + 1 * 4));
  4406. v_L55_5 = v_S58_12;
  4407. v_XP_13 = v_VALUE57_9;
  4408. SET_OE_SLOT(t0,0,v_XP_13);
  4409. t2 = MAKE_CLOSURE(p_xp_LP_3C_2DBP_2Danon7071,t0);
  4410. t1 = p_lsp_APPLY(MV_CALL(argc,2), COERCE_TO_FUNCTION(t2), v_L55_5);
  4411. return(t1);
  4412. }
  4413.  
  4414. LP p_xp_LP_3C_2DBP_2Danon7071(va_alist) va_dcl
  4415. {
  4416. LP v_Y_20; LP v_X_19; LP v_Y_17; 
  4417. LP v_X_16; LP v_Y_14; LP v_X_13; 
  4418. LP v_Y_11; LP v_X_10; LP v_Y_8; 
  4419. LP v_X_7; LP v_Y_5; LP v_X_4; 
  4420. LP v_Y_2; LP v_X_1; LP v_PTR_0; 
  4421.  
  4422. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4423. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4424. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4425. LP t18; LP t19; LP t20; LP t21; LP t22; 
  4426. int real_argc;
  4427. ARGC argc;
  4428. BEGIN_NON_ANSI_VAR_ARGS;
  4429. argc = (ARGC) NEXT_VAR_ARG;
  4430.  
  4431.  
  4432. t0 = OE;
  4433. real_argc = REAL_ARGC(argc);
  4434. if (real_argc < 0) wna_low(real_argc,0);
  4435. if (real_argc > 1) wna_high(real_argc,1);
  4436. if (real_argc < 1) {
  4437. v_PTR_0 = LREF(s_lsp_NIL);
  4438. } else {
  4439. v_PTR_0 = NEXT_VAR_ARG;
  4440. }
  4441. END_VAR_ARGS;
  4442. if (v_PTR_0 == NIL) {
  4443. v_X_1 = GET_OE_SLOT(t0,0);
  4444. v_Y_2 = LREF(s_lsp_NIL);
  4445. v_Y_5 = (c_cons((GET_OE_SLOT(t0,0)), (LREF(s_lsp_NIL))));
  4446. v_PTR_0 = (c_cons((LREF(s_xp_BUFFER_2DPTR)), (v_Y_5)));
  4447. }
  4448. v_X_16 = v_PTR_0;
  4449. v_X_7 = GET_OE_SLOT(t0,0);
  4450. v_Y_8 = LREF(s_lsp_NIL);
  4451. v_Y_11 = (c_cons((GET_OE_SLOT(t0,0)), (LREF(s_lsp_NIL))));
  4452. v_X_13 = (c_cons((LREF(s_xp_CHARPOS)), (v_Y_11)));
  4453. v_Y_17 = (c_cons((v_X_13), (LREF(s_lsp_NIL))));
  4454. v_Y_20 = (c_cons((v_X_16), (v_Y_17)));
  4455. t1 = (c_cons((LREF(s_lsp__2B)), (v_Y_20)));
  4456. return(t1);
  4457. }
  4458.  
  4459. LP m_xp_TP_3C_2DBP(argc, v_WHOLE59_0, v_ENV60_1)
  4460.       ARGC argc;  LP v_WHOLE59_0; LP v_ENV60_1;
  4461. {
  4462. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  4463. LP v_X_29; LP v_Y_27; LP v_X_26; 
  4464. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  4465. LP v_X_20; LP v_Y_18; LP v_X_17; 
  4466. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  4467. LP v_S68_12; LP v_X_10; LP v_VALUE67_9; 
  4468. LP v_X_7; LP v_LIST66_6; LP v_L65_5; 
  4469. LP v_X_3; 
  4470. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4471. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4472. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4473. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4474. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4475. LP t30; 
  4476. if (argc != 2) wna(argc,2);
  4477. v_X_3 = v_WHOLE59_0;
  4478. v_L65_5 = ((LP) DEREF((v_WHOLE59_0) + 1 * 4));
  4479. v_LIST66_6 = v_L65_5;
  4480. v_X_7 = v_LIST66_6;
  4481. v_VALUE67_9 = ((LP) DEREF((v_LIST66_6) + 0 * 4));
  4482. v_X_10 = v_LIST66_6;
  4483. v_S68_12 = ((LP) DEREF((v_LIST66_6) + 1 * 4));
  4484. v_L65_5 = v_S68_12;
  4485. v_XP_13 = v_VALUE67_9;
  4486. v_X_14 = v_XP_13;
  4487. v_Y_15 = LREF(s_lsp_NIL);
  4488. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4489. v_X_29 = (c_cons((LREF(s_xp_BUFFER_2DPTR)), (v_Y_18)));
  4490. v_X_20 = v_XP_13;
  4491. v_Y_21 = LREF(s_lsp_NIL);
  4492. v_Y_24 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4493. v_X_26 = (c_cons((LREF(s_xp_BUFFER_2DOFFSET)), (v_Y_24)));
  4494. v_Y_30 = (c_cons((v_X_26), (LREF(s_lsp_NIL))));
  4495. v_Y_33 = (c_cons((v_X_29), (v_Y_30)));
  4496. t0 = (c_cons((LREF(s_lsp__2B)), (v_Y_33)));
  4497. return(t0);
  4498. }
  4499.  
  4500. LP m_xp_BP_3C_2DLP(argc, v_WHOLE69_0, v_ENV70_1)
  4501.       ARGC argc;  LP v_WHOLE69_0; LP v_ENV70_1;
  4502. {
  4503. LP v_Y_35; LP v_X_34; LP v_Y_32; 
  4504. LP v_X_31; LP v_Y_29; LP v_X_28; 
  4505. LP v_Y_26; LP v_X_25; LP v_Y_23; 
  4506. LP v_X_22; LP v_PTR_21; LP v_S84_20; 
  4507. LP v_X_18; LP v_VALUE83_17; LP v_X_15; 
  4508. LP v_LIST82_14; LP v_XP_13; LP v_S81_12; 
  4509. LP v_X_10; LP v_VALUE80_9; LP v_X_7; 
  4510. LP v_LIST79_6; LP v_L78_5; LP v_X_3; 
  4511.  
  4512. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4513. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4514. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4515. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4516. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4517. LP t30; 
  4518. if (argc != 2) wna(argc,2);
  4519. v_X_3 = v_WHOLE69_0;
  4520. v_L78_5 = ((LP) DEREF((v_WHOLE69_0) + 1 * 4));
  4521. v_LIST79_6 = v_L78_5;
  4522. v_X_7 = v_LIST79_6;
  4523. v_VALUE80_9 = ((LP) DEREF((v_LIST79_6) + 0 * 4));
  4524. v_X_10 = v_LIST79_6;
  4525. v_S81_12 = ((LP) DEREF((v_LIST79_6) + 1 * 4));
  4526. v_L78_5 = v_S81_12;
  4527. v_XP_13 = v_VALUE80_9;
  4528. v_LIST82_14 = v_L78_5;
  4529. v_X_15 = v_LIST82_14;
  4530. v_VALUE83_17 = ((LP) DEREF((v_LIST82_14) + 0 * 4));
  4531. v_X_18 = v_LIST82_14;
  4532. v_S84_20 = ((LP) DEREF((v_LIST82_14) + 1 * 4));
  4533. v_L78_5 = v_S84_20;
  4534. v_PTR_21 = v_VALUE83_17;
  4535. v_X_22 = v_XP_13;
  4536. v_Y_23 = LREF(s_lsp_NIL);
  4537. v_Y_26 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4538. v_X_28 = (c_cons((LREF(s_xp_CHARPOS)), (v_Y_26)));
  4539. v_Y_32 = (c_cons((v_X_28), (LREF(s_lsp_NIL))));
  4540. v_Y_35 = (c_cons((v_PTR_21), (v_Y_32)));
  4541. t0 = (c_cons((LREF(s_lsp__2D)), (v_Y_35)));
  4542. return(t0);
  4543. }
  4544.  
  4545. LP m_xp_BP_3C_2DTP(argc, v_WHOLE85_0, v_ENV86_1)
  4546.       ARGC argc;  LP v_WHOLE85_0; LP v_ENV86_1;
  4547. {
  4548. LP v_Y_35; LP v_X_34; LP v_Y_32; 
  4549. LP v_X_31; LP v_Y_29; LP v_X_28; 
  4550. LP v_Y_26; LP v_X_25; LP v_Y_23; 
  4551. LP v_X_22; LP v_PTR_21; LP v_S100_20; 
  4552. LP v_X_18; LP v_VALUE99_17; LP v_X_15; 
  4553. LP v_LIST98_14; LP v_XP_13; LP v_S97_12; 
  4554. LP v_X_10; LP v_VALUE96_9; LP v_X_7; 
  4555. LP v_LIST95_6; LP v_L94_5; LP v_X_3; 
  4556.  
  4557. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4558. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4559. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4560. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4561. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4562. LP t30; 
  4563. if (argc != 2) wna(argc,2);
  4564. v_X_3 = v_WHOLE85_0;
  4565. v_L94_5 = ((LP) DEREF((v_WHOLE85_0) + 1 * 4));
  4566. v_LIST95_6 = v_L94_5;
  4567. v_X_7 = v_LIST95_6;
  4568. v_VALUE96_9 = ((LP) DEREF((v_LIST95_6) + 0 * 4));
  4569. v_X_10 = v_LIST95_6;
  4570. v_S97_12 = ((LP) DEREF((v_LIST95_6) + 1 * 4));
  4571. v_L94_5 = v_S97_12;
  4572. v_XP_13 = v_VALUE96_9;
  4573. v_LIST98_14 = v_L94_5;
  4574. v_X_15 = v_LIST98_14;
  4575. v_VALUE99_17 = ((LP) DEREF((v_LIST98_14) + 0 * 4));
  4576. v_X_18 = v_LIST98_14;
  4577. v_S100_20 = ((LP) DEREF((v_LIST98_14) + 1 * 4));
  4578. v_L94_5 = v_S100_20;
  4579. v_PTR_21 = v_VALUE99_17;
  4580. v_X_22 = v_XP_13;
  4581. v_Y_23 = LREF(s_lsp_NIL);
  4582. v_Y_26 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4583. v_X_28 = (c_cons((LREF(s_xp_BUFFER_2DOFFSET)), (v_Y_26)));
  4584. v_Y_32 = (c_cons((v_X_28), (LREF(s_lsp_NIL))));
  4585. v_Y_35 = (c_cons((v_PTR_21), (v_Y_32)));
  4586. t0 = (c_cons((LREF(s_lsp__2D)), (v_Y_35)));
  4587. return(t0);
  4588. }
  4589.  
  4590. LP m_xp_LP_3C_2DTP(argc, v_WHOLE101_0, v_ENV102_1)
  4591.       ARGC argc;  LP v_WHOLE101_0; LP v_ENV102_1;
  4592. {
  4593. LP v_Y_38; LP v_X_37; LP v_Y_35; 
  4594. LP v_X_34; LP v_Y_32; LP v_X_31; 
  4595. LP v_Y_29; LP v_X_28; LP v_Y_26; 
  4596. LP v_X_25; LP v_Y_23; LP v_X_22; 
  4597. LP v_PTR_21; LP v_S116_20; LP v_X_18; 
  4598. LP v_VALUE115_17; LP v_X_15; LP v_LIST114_14; 
  4599. LP v_XP_13; LP v_S113_12; LP v_X_10; 
  4600. LP v_VALUE112_9; LP v_X_7; LP v_LIST111_6; 
  4601. LP v_L110_5; LP v_X_3; 
  4602. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4603. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4604. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4605. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4606. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4607. LP t30; LP t31; LP t32; LP t33; 
  4608. if (argc != 2) wna(argc,2);
  4609. v_X_3 = v_WHOLE101_0;
  4610. v_L110_5 = ((LP) DEREF((v_WHOLE101_0) + 1 * 4));
  4611. v_LIST111_6 = v_L110_5;
  4612. v_X_7 = v_LIST111_6;
  4613. v_VALUE112_9 = ((LP) DEREF((v_LIST111_6) + 0 * 4));
  4614. v_X_10 = v_LIST111_6;
  4615. v_S113_12 = ((LP) DEREF((v_LIST111_6) + 1 * 4));
  4616. v_L110_5 = v_S113_12;
  4617. v_XP_13 = v_VALUE112_9;
  4618. v_LIST114_14 = v_L110_5;
  4619. v_X_15 = v_LIST114_14;
  4620. v_VALUE115_17 = ((LP) DEREF((v_LIST114_14) + 0 * 4));
  4621. v_X_18 = v_LIST114_14;
  4622. v_S116_20 = ((LP) DEREF((v_LIST114_14) + 1 * 4));
  4623. v_L110_5 = v_S116_20;
  4624. v_PTR_21 = v_VALUE115_17;
  4625. v_X_22 = v_PTR_21;
  4626. v_Y_23 = LREF(s_lsp_NIL);
  4627. v_Y_26 = (c_cons((v_PTR_21), (LREF(s_lsp_NIL))));
  4628. v_Y_29 = (c_cons((v_XP_13), (v_Y_26)));
  4629. v_X_31 = (c_cons((LREF(s_xp_BP_3C_2DTP)), (v_Y_29)));
  4630. v_Y_35 = (c_cons((v_X_31), (LREF(s_lsp_NIL))));
  4631. v_Y_38 = (c_cons((v_XP_13), (v_Y_35)));
  4632. t0 = (c_cons((LREF(s_xp_LP_3C_2DBP)), (v_Y_38)));
  4633. return(t0);
  4634. }
  4635.  
  4636. LP m_xp_CHECK_2DSIZE(argc, v_WHOLE117_0, v_ENV118_1)
  4637.       ARGC argc;  LP v_WHOLE117_0; LP v_ENV118_1;
  4638. {
  4639. LP v_Y_144; LP v_X_143; LP v_Y_141; 
  4640. LP v_X_140; LP v_Y_138; LP v_X_137; 
  4641. LP v_Y_135; LP v_X_134; LP v_Y_132; 
  4642. LP v_X_131; LP v_Y_129; LP v_X_128; 
  4643. LP v_Y_126; LP v_X_125; LP v_Y_123; 
  4644. LP v_X_122; LP v_Y_120; LP v_X_119; 
  4645. LP v_Y_117; LP v_X_116; LP v_Y_114; 
  4646. LP v_X_113; LP v_Y_111; LP v_X_110; 
  4647. LP v_Y_108; LP v_X_107; LP v_Y_105; 
  4648. LP v_X_104; LP v_Y_102; LP v_X_101; 
  4649. LP v_Y_99; LP v_X_98; LP v_Y_96; 
  4650. LP v_X_95; LP v_Y_93; LP v_X_92; 
  4651. LP v_Y_90; LP v_X_89; LP v_Y_87; 
  4652. LP v_X_86; LP v_Y_84; LP v_X_83; 
  4653. LP v_Y_81; LP v_X_80; LP v_Y_78; 
  4654. LP v_X_77; LP v_Y_75; LP v_X_74; 
  4655. LP v_Y_72; LP v_X_71; LP v_Y_69; 
  4656. LP v_X_68; LP v_Y_66; LP v_X_65; 
  4657. LP v_Y_63; LP v_X_62; LP v_Y_60; 
  4658. LP v_X_59; LP v_Y_57; LP v_X_56; 
  4659. LP v_Y_54; LP v_X_53; LP v_Y_51; 
  4660. LP v_X_50; LP v_ENTRY_2DSIZE_49; LP v_SYMBOL_47; 
  4661. LP v_P_45; LP v_NAME_44; LP v_NAME_40; 
  4662. LP v_SYMBOL_42; LP v_P_41; LP v_MIN_2DSIZE_39; 
  4663. LP v_SYMBOL_37; LP v_P_35; LP v_NAME_34; 
  4664. LP v_NAME_30; LP v_SYMBOL_32; LP v_P_31; 
  4665. LP v_PTR_29; LP v_S138_28; LP v_X_26; 
  4666. LP v_VALUE137_25; LP v_X_23; LP v_LIST136_22; 
  4667. LP v_VECT_21; LP v_S135_20; LP v_X_18; 
  4668. LP v_VALUE134_17; LP v_X_15; LP v_LIST133_14; 
  4669. LP v_XP_13; LP v_S132_12; LP v_X_10; 
  4670. LP v_VALUE131_9; LP v_X_7; LP v_LIST130_6; 
  4671. LP v_L129_5; LP v_X_3; 
  4672. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4673. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4674. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4675. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4676. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4677. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  4678. LP t36; LP t37; LP t38; LP t39; LP t40; LP t41; 
  4679. LP t42; LP t43; LP t44; LP t45; LP t46; LP t47; 
  4680. LP t48; LP t49; LP t50; LP t51; LP t52; LP t53; 
  4681. LP t54; LP t55; LP t56; LP t57; LP t58; LP t59; 
  4682. LP t60; LP t61; LP t62; LP t63; LP t64; LP t65; 
  4683. LP t66; LP t67; LP t68; LP t69; LP t70; LP t71; 
  4684. LP t72; LP t73; LP t74; LP t75; LP t76; LP t77; 
  4685. LP t78; LP t79; LP t80; LP t81; LP t82; LP t83; 
  4686. LP t84; LP t85; LP t86; LP t87; LP t88; LP t89; 
  4687. LP t90; LP t91; LP t92; LP t93; LP t94; LP t95; 
  4688. LP t96; LP t97; LP t98; LP t99; LP t100; LP t101; 
  4689. LP t102; LP t103; LP t104; LP t105; LP t106; LP t107; 
  4690. LP t108; LP t109; LP t110; LP t111; LP t112; LP t113; 
  4691. LP t114; LP t115; LP t116; LP t117; LP t118; LP t119; 
  4692. LP t120; LP t121; LP t122; LP t123; LP t124; LP t125; 
  4693. LP t126; LP t127; LP t128; LP t129; LP t130; LP t131; 
  4694. LP t132; LP t133; LP t134; LP t135; LP t136; LP t137; 
  4695. LP t138; LP t139; LP t140; LP t141; LP t142; LP t143; 
  4696. LP t144; LP t145; LP t146; LP t147; LP t148; LP t149; 
  4697. LP t150; LP t151; LP t152; 
  4698. if (argc != 2) wna(argc,2);
  4699. v_X_3 = v_WHOLE117_0;
  4700. v_L129_5 = ((LP) DEREF((v_WHOLE117_0) + 1 * 4));
  4701. v_LIST130_6 = v_L129_5;
  4702. v_X_7 = v_LIST130_6;
  4703. v_VALUE131_9 = ((LP) DEREF((v_LIST130_6) + 0 * 4));
  4704. v_X_10 = v_LIST130_6;
  4705. v_S132_12 = ((LP) DEREF((v_LIST130_6) + 1 * 4));
  4706. v_L129_5 = v_S132_12;
  4707. v_XP_13 = v_VALUE131_9;
  4708. v_LIST133_14 = v_L129_5;
  4709. v_X_15 = v_LIST133_14;
  4710. v_VALUE134_17 = ((LP) DEREF((v_LIST133_14) + 0 * 4));
  4711. v_X_18 = v_LIST133_14;
  4712. v_S135_20 = ((LP) DEREF((v_LIST133_14) + 1 * 4));
  4713. v_L129_5 = v_S135_20;
  4714. v_VECT_21 = v_VALUE134_17;
  4715. v_LIST136_22 = v_L129_5;
  4716. v_X_23 = v_LIST136_22;
  4717. v_VALUE137_25 = ((LP) DEREF((v_LIST136_22) + 0 * 4));
  4718. v_X_26 = v_LIST136_22;
  4719. v_S138_28 = ((LP) DEREF((v_LIST136_22) + 1 * 4));
  4720. v_L129_5 = v_S138_28;
  4721. v_PTR_29 = v_VALUE137_25;
  4722. t0 = ICALL(s_lsp_STRING) (1, v_VECT_21);
  4723. v_NAME_34 = ICALL(s_lsp_CONCATENATE) (3, LREF(s_lsp_STRING), t0, LREF(k72));
  4724. v_P_35 = ICALL(s_lsp_FIND_2DPACKAGE) (1, LREF(k40));
  4725. t1 = ICALL(s_lsp_COERCE_2DTO_2DPACKAGE) (1, v_P_35);
  4726. v_SYMBOL_37 = ICALL(s_lsp_INTERN_2F2) (2, v_NAME_34, t1);
  4727. v_MIN_2DSIZE_39 = ((LP) DEREF((v_SYMBOL_37) + 0 * 4));
  4728. t2 = ICALL(s_lsp_STRING) (1, v_VECT_21);
  4729. v_NAME_44 = ICALL(s_lsp_CONCATENATE) (3, LREF(s_lsp_STRING), t2, LREF(k73));
  4730. v_P_45 = ICALL(s_lsp_FIND_2DPACKAGE) (1, LREF(k40));
  4731. t3 = ICALL(s_lsp_COERCE_2DTO_2DPACKAGE) (1, v_P_45);
  4732. v_SYMBOL_47 = ICALL(s_lsp_INTERN_2F2) (2, v_NAME_44, t3);
  4733. v_ENTRY_2DSIZE_49 = ((LP) DEREF((v_SYMBOL_47) + 0 * 4));
  4734. v_X_50 = (subtract((v_MIN_2DSIZE_39), (v_ENTRY_2DSIZE_49)));
  4735. v_Y_54 = (c_cons((v_X_50), (LREF(s_lsp_NIL))));
  4736. v_Y_57 = (c_cons((v_PTR_29), (v_Y_54)));
  4737. v_X_92 = (c_cons((LREF(s_lsp__3E)), (v_Y_57)));
  4738. v_X_59 = v_XP_13;
  4739. v_Y_60 = LREF(s_lsp_NIL);
  4740. v_Y_63 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4741. v_X_65 = (c_cons((v_VECT_21), (v_Y_63)));
  4742. v_Y_69 = (c_cons((v_X_65), (LREF(s_lsp_NIL))));
  4743. v_X_74 = (c_cons((LREF(s_lsp_LENGTH)), (v_Y_69)));
  4744. v_X_71 = v_ENTRY_2DSIZE_49;
  4745. v_Y_72 = LREF(s_lsp_NIL);
  4746. v_Y_75 = (c_cons((v_ENTRY_2DSIZE_49), (LREF(s_lsp_NIL))));
  4747. v_Y_78 = (c_cons((v_X_74), (v_Y_75)));
  4748. v_X_80 = (c_cons((LREF(s_lsp__2D)), (v_Y_78)));
  4749. v_Y_84 = (c_cons((v_X_80), (LREF(s_lsp_NIL))));
  4750. v_Y_87 = (c_cons((v_PTR_29), (v_Y_84)));
  4751. v_X_89 = (c_cons((LREF(s_lsp__3E)), (v_Y_87)));
  4752. v_Y_93 = (c_cons((v_X_89), (LREF(s_lsp_NIL))));
  4753. v_Y_96 = (c_cons((v_X_92), (v_Y_93)));
  4754. v_X_140 = (c_cons((LREF(s_lsp_AND)), (v_Y_96)));
  4755. v_X_98 = v_XP_13;
  4756. v_Y_99 = LREF(s_lsp_NIL);
  4757. v_Y_102 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4758. v_X_104 = (c_cons((v_VECT_21), (v_Y_102)));
  4759. v_Y_108 = (c_cons((v_X_104), (LREF(s_lsp_NIL))));
  4760. v_X_128 = (c_cons((LREF(s_xp_OLD)), (v_Y_108)));
  4761. if (((int) (v_ENTRY_2DSIZE_49) == (int) ((LP) 2))) {
  4762. v_X_110 = (LP) 100;
  4763. } else {
  4764. v_X_110 = (multiply(((LP) 20), (v_ENTRY_2DSIZE_49)));
  4765. }
  4766. v_Y_114 = (c_cons((v_X_110), (LREF(s_lsp_NIL))));
  4767. v_Y_117 = (c_cons((v_PTR_29), (v_Y_114)));
  4768. t5 = (c_cons((LREF(s_lsp__2B)), (v_Y_117)));
  4769. v_X_119 = ICALL(s_lsp_LIST_2A) (3, LREF(s_lsp_MAKE_2DARRAY), t5, LREF(k74));
  4770. v_Y_123 = (c_cons((v_X_119), (LREF(s_lsp_NIL))));
  4771. v_X_125 = (c_cons((LREF(s_xp_NEW)), (v_Y_123)));
  4772. v_Y_129 = (c_cons((v_X_125), (LREF(s_lsp_NIL))));
  4773. t6 = (c_cons((v_X_128), (v_Y_129)));
  4774. v_X_131 = v_XP_13;
  4775. v_Y_132 = LREF(s_lsp_NIL);
  4776. v_Y_135 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4777. t8 = (c_cons((v_VECT_21), (v_Y_135)));
  4778. t7 = ICALL(s_lsp_LIST_2A) (3, LREF(s_lsp_SETF), t8, LREF(k80));
  4779. v_X_137 = ICALL(s_lsp_LIST) (4, LREF(s_lsp_LET_2A), t6, LREF(k78), t7);
  4780. v_Y_141 = (c_cons((v_X_137), (LREF(s_lsp_NIL))));
  4781. v_Y_144 = (c_cons((v_X_140), (v_Y_141)));
  4782. t9 = (c_cons((LREF(s_lsp_WHEN)), (v_Y_144)));
  4783. return(t9);
  4784. }
  4785.  
  4786. LP m_xp_SECTION_2DSTART(argc, v_WHOLE143_0, v_ENV144_1)
  4787.       ARGC argc;  LP v_WHOLE143_0; LP v_ENV144_1;
  4788. {
  4789. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  4790. LP v_X_29; LP v_Y_27; LP v_X_26; 
  4791. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  4792. LP v_X_20; LP v_Y_18; LP v_X_17; 
  4793. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  4794. LP v_S152_12; LP v_X_10; LP v_VALUE151_9; 
  4795. LP v_X_7; LP v_LIST150_6; LP v_L149_5; 
  4796. LP v_X_3; 
  4797. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4798. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4799. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4800. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4801. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4802. LP t30; 
  4803. if (argc != 2) wna(argc,2);
  4804. v_X_3 = v_WHOLE143_0;
  4805. v_L149_5 = ((LP) DEREF((v_WHOLE143_0) + 1 * 4));
  4806. v_LIST150_6 = v_L149_5;
  4807. v_X_7 = v_LIST150_6;
  4808. v_VALUE151_9 = ((LP) DEREF((v_LIST150_6) + 0 * 4));
  4809. v_X_10 = v_LIST150_6;
  4810. v_S152_12 = ((LP) DEREF((v_LIST150_6) + 1 * 4));
  4811. v_L149_5 = v_S152_12;
  4812. v_XP_13 = v_VALUE151_9;
  4813. v_X_14 = v_XP_13;
  4814. v_Y_15 = LREF(s_lsp_NIL);
  4815. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4816. v_X_29 = (c_cons((LREF(s_xp_BLOCK_2DSTACK)), (v_Y_18)));
  4817. v_X_20 = v_XP_13;
  4818. v_Y_21 = LREF(s_lsp_NIL);
  4819. v_Y_24 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4820. v_X_26 = (c_cons((LREF(s_xp_BLOCK_2DSTACK_2DPTR)), (v_Y_24)));
  4821. v_Y_30 = (c_cons((v_X_26), (LREF(s_lsp_NIL))));
  4822. v_Y_33 = (c_cons((v_X_29), (v_Y_30)));
  4823. t0 = (c_cons((LREF(s_lsp_AREF)), (v_Y_33)));
  4824. return(t0);
  4825. }
  4826.  
  4827. LP p_xp_PUSH_2DBLOCK_2DSTACK(argc, v_XP_0)
  4828.       ARGC argc;  LP v_XP_0;
  4829. {
  4830. LP v_I_63; LP v_S_62; LP v_S_60; 
  4831. LP v_I_58; LP v_S_57; LP v_S_55; 
  4832. LP v_I_53; LP v_S_52; LP v_S_50; 
  4833. LP v_VALUE_48; LP v_N_47; LP v_S_46; 
  4834. LP v_VALUE_44; LP v_S_43; LP v_T156_42; 
  4835. LP v_S155_41; LP v_SOURCE_2DEND_39; LP v_SOURCE_2DSTART_38; 
  4836. LP v_TARGET_2DEND_37; LP v_TARGET_2DSTART_36; LP v_SOURCE_2DSEQUENCE_35; 
  4837. LP v_TARGET_2DSEQUENCE_34; LP v_SOURCE_2DSEQUENCE_29; LP v_TARGET_2DSEQUENCE_28; 
  4838. LP v_SOURCE_2DEND_33; LP v_SOURCE_2DSTART_32; LP v_TARGET_2DEND_31; 
  4839. LP v_TARGET_2DSTART_30; LP v_NEW_27; LP v_I_25; 
  4840. LP v_S_24; LP v_S_22; LP v_OLD_21; 
  4841. LP v_I_19; LP v_S_18; LP v_S_16; 
  4842. LP v_VALUE_14; LP v_N_13; LP v_S_12; 
  4843. LP v_VALUE_10; LP v_S_9; LP v_T154_8; 
  4844. LP v_S153_7; LP v_I_5; LP v_S_4; 
  4845. LP v_S_2; 
  4846. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4847. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4848. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4849. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4850. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4851. LP t30; LP t31; LP t32; LP t33; LP t34; LP t35; 
  4852. LP t36; LP t37; LP t38; 
  4853. if (argc != 1) wna(argc,1);
  4854. v_S_2 = v_XP_0;
  4855. v_S_4 = v_XP_0;
  4856. v_I_5 = (LP) 18;
  4857. t0 = ((LP) DEREF((v_XP_0) + 9 * 4));
  4858. v_S153_7 = (add((t0), ((LP) 2)));
  4859. v_T154_8 = v_XP_0;
  4860. v_S_9 = v_XP_0;
  4861. v_VALUE_10 = v_S153_7;
  4862. v_S_12 = v_XP_0;
  4863. v_N_13 = (LP) 18;
  4864. v_VALUE_14 = v_S153_7;
  4865. ((LP) (DEREF((v_XP_0) + 9 * 4) = (LD) (v_S153_7)));
  4866. v_S_60 = v_XP_0;
  4867. v_S_62 = v_XP_0;
  4868. v_I_63 = (LP) 18;
  4869. t4 = ((LP) DEREF((v_XP_0) + 9 * 4));
  4870. t3 = (greaterp((t4), ((LP) 68)));
  4871. if (t3 != NIL) {
  4872. v_S_50 = v_XP_0;
  4873. v_S_52 = v_XP_0;
  4874. v_I_53 = (LP) 18;
  4875. t5 = ((LP) DEREF((v_XP_0) + 9 * 4));
  4876. v_S_55 = v_XP_0;
  4877. v_S_57 = v_XP_0;
  4878. v_I_58 = (LP) 16;
  4879. t8 = ((LP) DEREF((v_XP_0) + 8 * 4));
  4880. t7 = ICALL(s_lsp_LENGTH) (1, t8);
  4881. t6 = (subtract((t7), ((LP) 2)));
  4882. t2 = (greaterp((t5), (t6)));
  4883. } else {
  4884. t2 = LREF(s_lsp_NIL);
  4885. }
  4886. if (t2 != NIL) {
  4887. v_S_16 = v_XP_0;
  4888. v_S_18 = v_XP_0;
  4889. v_I_19 = (LP) 16;
  4890. v_OLD_21 = ((LP) DEREF((v_XP_0) + 8 * 4));
  4891. v_S_22 = v_XP_0;
  4892. v_S_24 = v_XP_0;
  4893. v_I_25 = (LP) 18;
  4894. t10 = ((LP) DEREF((v_XP_0) + 9 * 4));
  4895. t9 = (add((t10), ((LP) 100)));
  4896. t11 = ICALL(s_lsp_ARRAY_2DELEMENT_2DTYPE) (1, v_OLD_21);
  4897. v_NEW_27 = ICALL(s_lsp_MAKE_2DARRAY) (3, t9, LREF(s_key_ELEMENT_2DTYPE), t11);
  4898. v_TARGET_2DSEQUENCE_34 = v_NEW_27;
  4899. v_SOURCE_2DSEQUENCE_35 = v_OLD_21;
  4900. v_TARGET_2DSTART_36 = (LP) 0;
  4901. v_TARGET_2DEND_37 = LREF(s_lsp_NIL);
  4902. v_SOURCE_2DSTART_38 = (LP) 0;
  4903. v_SOURCE_2DEND_39 = LREF(s_lsp_NIL);
  4904. ICALL(s_lsp_REPLACE_2F6) (6, v_NEW_27, v_OLD_21, (LP) 0, LREF(s_lsp_NIL), (LP) 0, LREF(s_lsp_NIL));
  4905. v_S155_41 = v_NEW_27;
  4906. v_T156_42 = v_XP_0;
  4907. v_S_43 = v_XP_0;
  4908. v_VALUE_44 = v_NEW_27;
  4909. v_S_46 = v_XP_0;
  4910. v_N_47 = (LP) 16;
  4911. v_VALUE_48 = v_NEW_27;
  4912. t1 = ((LP) (DEREF((v_XP_0) + 8 * 4) = (LD) (v_NEW_27)));
  4913. return(t1);
  4914. } else {
  4915. return(LREF(s_lsp_NIL));
  4916. }
  4917. }
  4918.  
  4919. LP p_xp_POP_2DBLOCK_2DSTACK(argc, v_XP_0)
  4920.       ARGC argc;  LP v_XP_0;
  4921. {
  4922. LP v_VALUE_14; LP v_N_13; LP v_S_12; 
  4923. LP v_VALUE_10; LP v_S_9; LP v_T158_8; 
  4924. LP v_S157_7; LP v_I_5; LP v_S_4; 
  4925. LP v_S_2; 
  4926. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4927. LP t6; LP t7; 
  4928. if (argc != 1) wna(argc,1);
  4929. v_S_2 = v_XP_0;
  4930. v_S_4 = v_XP_0;
  4931. v_I_5 = (LP) 18;
  4932. t0 = ((LP) DEREF((v_XP_0) + 9 * 4));
  4933. v_S157_7 = (subtract((t0), ((LP) 2)));
  4934. v_T158_8 = v_XP_0;
  4935. v_S_9 = v_XP_0;
  4936. v_VALUE_10 = v_S157_7;
  4937. v_S_12 = v_XP_0;
  4938. v_N_13 = (LP) 18;
  4939. v_VALUE_14 = v_S157_7;
  4940. t1 = ((LP) (DEREF((v_XP_0) + 9 * 4) = (LD) (v_S157_7)));
  4941. return(t1);
  4942. }
  4943.  
  4944. LP m_xp_PREFIX_2DPTR(argc, v_WHOLE159_0, v_ENV160_1)
  4945.       ARGC argc;  LP v_WHOLE159_0; LP v_ENV160_1;
  4946. {
  4947. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  4948. LP v_X_29; LP v_Y_27; LP v_X_26; 
  4949. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  4950. LP v_X_20; LP v_Y_18; LP v_X_17; 
  4951. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  4952. LP v_S168_12; LP v_X_10; LP v_VALUE167_9; 
  4953. LP v_X_7; LP v_LIST166_6; LP v_L165_5; 
  4954. LP v_X_3; 
  4955. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4956. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4957. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4958. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  4959. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  4960. LP t30; 
  4961. if (argc != 2) wna(argc,2);
  4962. v_X_3 = v_WHOLE159_0;
  4963. v_L165_5 = ((LP) DEREF((v_WHOLE159_0) + 1 * 4));
  4964. v_LIST166_6 = v_L165_5;
  4965. v_X_7 = v_LIST166_6;
  4966. v_VALUE167_9 = ((LP) DEREF((v_LIST166_6) + 0 * 4));
  4967. v_X_10 = v_LIST166_6;
  4968. v_S168_12 = ((LP) DEREF((v_LIST166_6) + 1 * 4));
  4969. v_L165_5 = v_S168_12;
  4970. v_XP_13 = v_VALUE167_9;
  4971. v_X_14 = v_XP_13;
  4972. v_Y_15 = LREF(s_lsp_NIL);
  4973. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4974. v_X_29 = (c_cons((LREF(s_xp_PREFIX_2DSTACK)), (v_Y_18)));
  4975. v_X_20 = v_XP_13;
  4976. v_Y_21 = LREF(s_lsp_NIL);
  4977. v_Y_24 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  4978. v_X_26 = (c_cons((LREF(s_xp_PREFIX_2DSTACK_2DPTR)), (v_Y_24)));
  4979. v_Y_30 = (c_cons((v_X_26), (LREF(s_lsp_NIL))));
  4980. v_Y_33 = (c_cons((v_X_29), (v_Y_30)));
  4981. t0 = (c_cons((LREF(s_lsp_AREF)), (v_Y_33)));
  4982. return(t0);
  4983. }
  4984.  
  4985. LP m_xp_SUFFIX_2DPTR(argc, v_WHOLE169_0, v_ENV170_1)
  4986.       ARGC argc;  LP v_WHOLE169_0; LP v_ENV170_1;
  4987. {
  4988. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  4989. LP v_X_29; LP v_Y_27; LP v_X_26; 
  4990. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  4991. LP v_X_20; LP v_Y_18; LP v_X_17; 
  4992. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  4993. LP v_S178_12; LP v_X_10; LP v_VALUE177_9; 
  4994. LP v_X_7; LP v_LIST176_6; LP v_L175_5; 
  4995. LP v_X_3; 
  4996. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  4997. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  4998. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  4999. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  5000. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  5001. LP t30; LP t31; 
  5002. if (argc != 2) wna(argc,2);
  5003. v_X_3 = v_WHOLE169_0;
  5004. v_L175_5 = ((LP) DEREF((v_WHOLE169_0) + 1 * 4));
  5005. v_LIST176_6 = v_L175_5;
  5006. v_X_7 = v_LIST176_6;
  5007. v_VALUE177_9 = ((LP) DEREF((v_LIST176_6) + 0 * 4));
  5008. v_X_10 = v_LIST176_6;
  5009. v_S178_12 = ((LP) DEREF((v_LIST176_6) + 1 * 4));
  5010. v_L175_5 = v_S178_12;
  5011. v_XP_13 = v_VALUE177_9;
  5012. v_X_14 = v_XP_13;
  5013. v_Y_15 = LREF(s_lsp_NIL);
  5014. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5015. v_X_29 = (c_cons((LREF(s_xp_PREFIX_2DSTACK)), (v_Y_18)));
  5016. v_X_20 = v_XP_13;
  5017. v_Y_21 = LREF(s_lsp_NIL);
  5018. v_Y_24 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5019. t0 = (c_cons((LREF(s_xp_PREFIX_2DSTACK_2DPTR)), (v_Y_24)));
  5020. v_X_26 = ICALL(s_lsp_LIST_2A) (3, LREF(s_lsp__2B), t0, LREF(k81));
  5021. v_Y_30 = (c_cons((v_X_26), (LREF(s_lsp_NIL))));
  5022. v_Y_33 = (c_cons((v_X_29), (v_Y_30)));
  5023. t1 = (c_cons((LREF(s_lsp_AREF)), (v_Y_33)));
  5024. return(t1);
  5025. }
  5026.  
  5027. LP m_xp_NON_2DBLANK_2DPREFIX_2DPTR(argc, v_WHOLE179_0, v_ENV180_1)
  5028.       ARGC argc;  LP v_WHOLE179_0; LP v_ENV180_1;
  5029. {
  5030. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  5031. LP v_X_29; LP v_Y_27; LP v_X_26; 
  5032. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  5033. LP v_X_20; LP v_Y_18; LP v_X_17; 
  5034. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  5035. LP v_S188_12; LP v_X_10; LP v_VALUE187_9; 
  5036. LP v_X_7; LP v_LIST186_6; LP v_L185_5; 
  5037. LP v_X_3; 
  5038. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  5039. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  5040. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  5041. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  5042. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  5043. LP t30; LP t31; 
  5044. if (argc != 2) wna(argc,2);
  5045. v_X_3 = v_WHOLE179_0;
  5046. v_L185_5 = ((LP) DEREF((v_WHOLE179_0) + 1 * 4));
  5047. v_LIST186_6 = v_L185_5;
  5048. v_X_7 = v_LIST186_6;
  5049. v_VALUE187_9 = ((LP) DEREF((v_LIST186_6) + 0 * 4));
  5050. v_X_10 = v_LIST186_6;
  5051. v_S188_12 = ((LP) DEREF((v_LIST186_6) + 1 * 4));
  5052. v_L185_5 = v_S188_12;
  5053. v_XP_13 = v_VALUE187_9;
  5054. v_X_14 = v_XP_13;
  5055. v_Y_15 = LREF(s_lsp_NIL);
  5056. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5057. v_X_29 = (c_cons((LREF(s_xp_PREFIX_2DSTACK)), (v_Y_18)));
  5058. v_X_20 = v_XP_13;
  5059. v_Y_21 = LREF(s_lsp_NIL);
  5060. v_Y_24 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5061. t0 = (c_cons((LREF(s_xp_PREFIX_2DSTACK_2DPTR)), (v_Y_24)));
  5062. v_X_26 = ICALL(s_lsp_LIST_2A) (3, LREF(s_lsp__2B), t0, LREF(k82));
  5063. v_Y_30 = (c_cons((v_X_26), (LREF(s_lsp_NIL))));
  5064. v_Y_33 = (c_cons((v_X_29), (v_Y_30)));
  5065. t1 = (c_cons((LREF(s_lsp_AREF)), (v_Y_33)));
  5066. return(t1);
  5067. }
  5068.  
  5069. LP m_xp_INITIAL_2DPREFIX_2DPTR(argc, v_WHOLE189_0, v_ENV190_1)
  5070.       ARGC argc;  LP v_WHOLE189_0; LP v_ENV190_1;
  5071. {
  5072. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  5073. LP v_X_29; LP v_Y_27; LP v_X_26; 
  5074. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  5075. LP v_X_20; LP v_Y_18; LP v_X_17; 
  5076. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  5077. LP v_S198_12; LP v_X_10; LP v_VALUE197_9; 
  5078. LP v_X_7; LP v_LIST196_6; LP v_L195_5; 
  5079. LP v_X_3; 
  5080. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  5081. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  5082. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  5083. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  5084. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  5085. LP t30; LP t31; 
  5086. if (argc != 2) wna(argc,2);
  5087. v_X_3 = v_WHOLE189_0;
  5088. v_L195_5 = ((LP) DEREF((v_WHOLE189_0) + 1 * 4));
  5089. v_LIST196_6 = v_L195_5;
  5090. v_X_7 = v_LIST196_6;
  5091. v_VALUE197_9 = ((LP) DEREF((v_LIST196_6) + 0 * 4));
  5092. v_X_10 = v_LIST196_6;
  5093. v_S198_12 = ((LP) DEREF((v_LIST196_6) + 1 * 4));
  5094. v_L195_5 = v_S198_12;
  5095. v_XP_13 = v_VALUE197_9;
  5096. v_X_14 = v_XP_13;
  5097. v_Y_15 = LREF(s_lsp_NIL);
  5098. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5099. v_X_29 = (c_cons((LREF(s_xp_PREFIX_2DSTACK)), (v_Y_18)));
  5100. v_X_20 = v_XP_13;
  5101. v_Y_21 = LREF(s_lsp_NIL);
  5102. v_Y_24 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5103. t0 = (c_cons((LREF(s_xp_PREFIX_2DSTACK_2DPTR)), (v_Y_24)));
  5104. v_X_26 = ICALL(s_lsp_LIST_2A) (3, LREF(s_lsp__2B), t0, LREF(k83));
  5105. v_Y_30 = (c_cons((v_X_26), (LREF(s_lsp_NIL))));
  5106. v_Y_33 = (c_cons((v_X_29), (v_Y_30)));
  5107. t1 = (c_cons((LREF(s_lsp_AREF)), (v_Y_33)));
  5108. return(t1);
  5109. }
  5110.  
  5111. LP m_xp_SECTION_2DSTART_2DLINE(argc, v_WHOLE199_0, v_ENV200_1)
  5112.       ARGC argc;  LP v_WHOLE199_0; LP v_ENV200_1;
  5113. {
  5114. LP v_Y_33; LP v_X_32; LP v_Y_30; 
  5115. LP v_X_29; LP v_Y_27; LP v_X_26; 
  5116. LP v_Y_24; LP v_X_23; LP v_Y_21; 
  5117. LP v_X_20; LP v_Y_18; LP v_X_17; 
  5118. LP v_Y_15; LP v_X_14; LP v_XP_13; 
  5119. LP v_S208_12; LP v_X_10; LP v_VALUE207_9; 
  5120. LP v_X_7; LP v_LIST206_6; LP v_L205_5; 
  5121. LP v_X_3; 
  5122. LP t0; LP t1; LP t2; LP t3; LP t4; LP t5; 
  5123. LP t6; LP t7; LP t8; LP t9; LP t10; LP t11; 
  5124. LP t12; LP t13; LP t14; LP t15; LP t16; LP t17; 
  5125. LP t18; LP t19; LP t20; LP t21; LP t22; LP t23; 
  5126. LP t24; LP t25; LP t26; LP t27; LP t28; LP t29; 
  5127. LP t30; LP t31; 
  5128. if (argc != 2) wna(argc,2);
  5129. v_X_3 = v_WHOLE199_0;
  5130. v_L205_5 = ((LP) DEREF((v_WHOLE199_0) + 1 * 4));
  5131. v_LIST206_6 = v_L205_5;
  5132. v_X_7 = v_LIST206_6;
  5133. v_VALUE207_9 = ((LP) DEREF((v_LIST206_6) + 0 * 4));
  5134. v_X_10 = v_LIST206_6;
  5135. v_S208_12 = ((LP) DEREF((v_LIST206_6) + 1 * 4));
  5136. v_L205_5 = v_S208_12;
  5137. v_XP_13 = v_VALUE207_9;
  5138. v_X_14 = v_XP_13;
  5139. v_Y_15 = LREF(s_lsp_NIL);
  5140. v_Y_18 = (c_cons((v_XP_13), (LREF(s_lsp_NIL))));
  5141. v_X_29 = (c_cons((LREF(s_xp_PREFIX_2DSTACK)), (v_Y_18)));
  5142. v_X_20 = v_XP_13;
  5143. v_Y_21 = LREF(s_lsp_NIL);
  5144. v_Y_24 = (c_co